home *** CD-ROM | disk | FTP | other *** search
| MacBinary | 1985-02-01 | 18.0 KB | [□□□□/□□□□] |
open in: 
MacOS 8.1
|
Win98
|
DOS
browse contents |
view JSON data
|
view as text
This file was processed as: MacBinary
(archive/macBinary).
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 66%
| dexvert
| Compact Compressed (Unix) (archive/compact)
| ext
| Supported |
| 1%
| dexvert
| MacBinary (archive/macBinary)
| fallback
| Supported |
| 100%
| file
| MacBinary II, inited, Sat Jan 26 21:38:30 1985, modified Fri Feb 1 14:29:08 1985, 17744 bytes "xllist.c" , at 0x45d0 490 bytes resource
| default (weak)
| |
| 99%
| file
| data
| default
| |
| 100%
| TrID
| MacBinary 2
| default (weak)
| |
| 100%
| dearkID
| deark: macbinary
| default
| |
| 100%
| siegfried
| fmt/1762 MacBinary (II)
| default
| |
| 100%
| lsar
| MacBinary
| default
|
|
| id metadata |
|---|
| key | value |
|---|
| macFileType | [□□□□] |
| macFileCreator | [□□□□] |
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 08 78 6c 6c 69 73 74 | 2e 63 00 00 00 00 00 00 |..xllist|.c......|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 00 00 00 00 00 00 00 | 00 01 00 00 00 00 00 00 |........|........|
|00000050| 00 00 00 00 00 45 50 00 | 00 01 ea 98 7f 67 26 98 |.....EP.|.....g&.|
|00000060| 86 eb 84 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 72 af 00 00 |........|....r...|
|00000080| 2f 2a 20 78 6c 6c 69 73 | 74 20 2d 20 78 6c 69 73 |/* xllis|t - xlis|
|00000090| 70 20 62 75 69 6c 74 2d | 69 6e 20 6c 69 73 74 20 |p built-|in list |
|000000a0| 66 75 6e 63 74 69 6f 6e | 73 20 2a 2f 0d 0d 23 69 |function|s */..#i|
|000000b0| 6e 63 6c 75 64 65 20 22 | 78 6c 69 73 70 2e 68 22 |nclude "|xlisp.h"|
|000000c0| 0d 0d 23 69 66 64 65 66 | 20 4d 45 47 41 4d 41 58 |..#ifdef| MEGAMAX|
|000000d0| 0d 6f 76 65 72 6c 61 79 | 20 22 6f 76 65 72 66 6c |.overlay| "overfl|
|000000e0| 6f 77 22 0d 23 65 6e 64 | 69 66 0d 0d 2f 2a 20 65 |ow".#end|if../* e|
|000000f0| 78 74 65 72 6e 61 6c 20 | 76 61 72 69 61 62 6c 65 |xternal |variable|
|00000100| 73 20 2a 2f 0d 65 78 74 | 65 72 6e 20 4e 4f 44 45 |s */.ext|ern NODE|
|00000110| 20 2a 78 6c 73 74 61 63 | 6b 3b 0d 65 78 74 65 72 | *xlstac|k;.exter|
|00000120| 6e 20 4e 4f 44 45 20 2a | 73 5f 75 6e 62 6f 75 6e |n NODE *|s_unboun|
|00000130| 64 3b 0d 65 78 74 65 72 | 6e 20 4e 4f 44 45 20 2a |d;.exter|n NODE *|
|00000140| 74 72 75 65 3b 0d 0d 2f | 2a 20 65 78 74 65 72 6e |true;../|* extern|
|00000150| 61 6c 20 72 6f 75 74 69 | 6e 65 73 20 2a 2f 0d 65 |al routi|nes */.e|
|00000160| 78 74 65 72 6e 20 69 6e | 74 20 65 71 28 29 2c 65 |xtern in|t eq(),e|
|00000170| 71 6c 28 29 2c 65 71 75 | 61 6c 28 29 3b 0d 0d 2f |ql(),equ|al();../|
|00000180| 2a 20 66 6f 72 77 61 72 | 64 20 64 65 63 6c 61 72 |* forwar|d declar|
|00000190| 61 74 69 6f 6e 73 20 2a | 2f 0d 46 4f 52 57 41 52 |ations *|/.FORWAR|
|000001a0| 44 20 4e 4f 44 45 20 2a | 63 78 72 28 29 3b 0d 46 |D NODE *|cxr();.F|
|000001b0| 4f 52 57 41 52 44 20 4e | 4f 44 45 20 2a 6e 74 68 |ORWARD N|ODE *nth|
|000001c0| 28 29 2c 2a 61 73 73 6f | 63 28 29 3b 0d 46 4f 52 |(),*asso|c();.FOR|
|000001d0| 57 41 52 44 20 4e 4f 44 | 45 20 2a 73 75 62 73 74 |WARD NOD|E *subst|
|000001e0| 28 29 2c 2a 73 75 62 6c | 69 73 28 29 2c 2a 6d 61 |(),*subl|is(),*ma|
|000001f0| 70 28 29 3b 0d 46 4f 52 | 57 41 52 44 20 4e 4f 44 |p();.FOR|WARD NOD|
|00000200| 45 20 2a 63 65 71 75 61 | 6c 28 29 3b 0d 0d 2f 2a |E *cequa|l();../*|
|00000210| 20 78 63 61 72 20 2d 20 | 72 65 74 75 72 6e 20 74 | xcar - |return t|
|00000220| 68 65 20 63 61 72 20 6f | 66 20 61 20 6c 69 73 74 |he car o|f a list|
|00000230| 20 2a 2f 0d 4e 4f 44 45 | 20 2a 78 63 61 72 28 61 | */.NODE| *xcar(a|
|00000240| 72 67 73 29 0d 20 20 4e | 4f 44 45 20 2a 61 72 67 |rgs). N|ODE *arg|
|00000250| 73 3b 0d 7b 0d 20 20 20 | 20 72 65 74 75 72 6e 20 |s;.{. | return |
|00000260| 28 63 78 72 28 61 72 67 | 73 2c 22 61 22 29 29 3b |(cxr(arg|s,"a"));|
|00000270| 0d 7d 0d 0d 2f 2a 20 78 | 63 64 72 20 2d 20 72 65 |.}../* x|cdr - re|
|00000280| 74 75 72 6e 20 74 68 65 | 20 63 64 72 20 6f 66 20 |turn the| cdr of |
|00000290| 61 20 6c 69 73 74 20 2a | 2f 0d 4e 4f 44 45 20 2a |a list *|/.NODE *|
|000002a0| 78 63 64 72 28 61 72 67 | 73 29 0d 20 20 4e 4f 44 |xcdr(arg|s). NOD|
|000002b0| 45 20 2a 61 72 67 73 3b | 0d 7b 0d 20 20 20 20 72 |E *args;|.{. r|
|000002c0| 65 74 75 72 6e 20 28 63 | 78 72 28 61 72 67 73 2c |eturn (c|xr(args,|
|000002d0| 22 64 22 29 29 3b 0d 7d | 0d 0d 2f 2a 20 78 63 61 |"d"));.}|../* xca|
|000002e0| 61 72 20 2d 20 72 65 74 | 75 72 6e 20 74 68 65 20 |ar - ret|urn the |
|000002f0| 63 61 61 72 20 6f 66 20 | 61 20 6c 69 73 74 20 2a |caar of |a list *|
|00000300| 2f 0d 4e 4f 44 45 20 2a | 78 63 61 61 72 28 61 72 |/.NODE *|xcaar(ar|
|00000310| 67 73 29 0d 20 20 4e 4f | 44 45 20 2a 61 72 67 73 |gs). NO|DE *args|
|00000320| 3b 0d 7b 0d 20 20 20 20 | 72 65 74 75 72 6e 20 28 |;.{. |return (|
|00000330| 63 78 72 28 61 72 67 73 | 2c 22 61 61 22 29 29 3b |cxr(args|,"aa"));|
|00000340| 0d 7d 0d 0d 2f 2a 20 78 | 63 61 64 72 20 2d 20 72 |.}../* x|cadr - r|
|00000350| 65 74 75 72 6e 20 74 68 | 65 20 63 61 64 72 20 6f |eturn th|e cadr o|
|00000360| 66 20 61 20 6c 69 73 74 | 20 2a 2f 0d 4e 4f 44 45 |f a list| */.NODE|
|00000370| 20 2a 78 63 61 64 72 28 | 61 72 67 73 29 0d 20 20 | *xcadr(|args). |
|00000380| 4e 4f 44 45 20 2a 61 72 | 67 73 3b 0d 7b 0d 20 20 |NODE *ar|gs;.{. |
|00000390| 20 20 72 65 74 75 72 6e | 20 28 63 78 72 28 61 72 | return| (cxr(ar|
|000003a0| 67 73 2c 22 64 61 22 29 | 29 3b 0d 7d 0d 0d 2f 2a |gs,"da")|);.}../*|
|000003b0| 20 78 63 64 61 72 20 2d | 20 72 65 74 75 72 6e 20 | xcdar -| return |
|000003c0| 74 68 65 20 63 64 61 72 | 20 6f 66 20 61 20 6c 69 |the cdar| of a li|
|000003d0| 73 74 20 2a 2f 0d 4e 4f | 44 45 20 2a 78 63 64 61 |st */.NO|DE *xcda|
|000003e0| 72 28 61 72 67 73 29 0d | 20 20 4e 4f 44 45 20 2a |r(args).| NODE *|
|000003f0| 61 72 67 73 3b 0d 7b 0d | 20 20 20 20 72 65 74 75 |args;.{.| retu|
|00000400| 72 6e 20 28 63 78 72 28 | 61 72 67 73 2c 22 61 64 |rn (cxr(|args,"ad|
|00000410| 22 29 29 3b 0d 7d 0d 0d | 2f 2a 20 78 63 64 64 72 |"));.}..|/* xcddr|
|00000420| 20 2d 20 72 65 74 75 72 | 6e 20 74 68 65 20 63 64 | - retur|n the cd|
|00000430| 64 72 20 6f 66 20 61 20 | 6c 69 73 74 20 2a 2f 0d |dr of a |list */.|
|00000440| 4e 4f 44 45 20 2a 78 63 | 64 64 72 28 61 72 67 73 |NODE *xc|ddr(args|
|00000450| 29 0d 20 20 4e 4f 44 45 | 20 2a 61 72 67 73 3b 0d |). NODE| *args;.|
|00000460| 7b 0d 20 20 20 20 72 65 | 74 75 72 6e 20 28 63 78 |{. re|turn (cx|
|00000470| 72 28 61 72 67 73 2c 22 | 64 64 22 29 29 3b 0d 7d |r(args,"|dd"));.}|
|00000480| 0d 0d 2f 2a 20 63 78 72 | 20 2d 20 63 6f 6d 6d 6f |../* cxr| - commo|
|00000490| 6e 20 63 61 72 2f 63 64 | 72 20 72 6f 75 74 69 6e |n car/cd|r routin|
|000004a0| 65 20 2a 2f 0d 4c 4f 43 | 41 4c 20 4e 4f 44 45 20 |e */.LOC|AL NODE |
|000004b0| 2a 63 78 72 28 61 72 67 | 73 2c 61 64 73 74 72 29 |*cxr(arg|s,adstr)|
|000004c0| 0d 20 20 4e 4f 44 45 20 | 2a 61 72 67 73 3b 20 63 |. NODE |*args; c|
|000004d0| 68 61 72 20 2a 61 64 73 | 74 72 3b 0d 7b 0d 20 20 |har *ads|tr;.{. |
|000004e0| 20 20 4e 4f 44 45 20 2a | 6c 69 73 74 3b 0d 0d 20 | NODE *|list;.. |
|000004f0| 20 20 20 2f 2a 20 67 65 | 74 20 74 68 65 20 6c 69 | /* ge|t the li|
|00000500| 73 74 20 2a 2f 0d 20 20 | 20 20 6c 69 73 74 20 3d |st */. | list =|
|00000510| 20 78 6c 6d 61 74 63 68 | 28 4c 49 53 54 2c 26 61 | xlmatch|(LIST,&a|
|00000520| 72 67 73 29 3b 0d 20 20 | 20 20 78 6c 6c 61 73 74 |rgs);. | xllast|
|00000530| 61 72 67 28 61 72 67 73 | 29 3b 0d 0d 20 20 20 20 |arg(args|);.. |
|00000540| 2f 2a 20 70 65 72 66 6f | 72 6d 20 74 68 65 20 63 |/* perfo|rm the c|
|00000550| 61 72 2f 63 64 72 20 6f | 70 65 72 61 74 69 6f 6e |ar/cdr o|peration|
|00000560| 73 20 2a 2f 0d 20 20 20 | 20 77 68 69 6c 65 20 28 |s */. | while (|
|00000570| 2a 61 64 73 74 72 20 26 | 26 20 63 6f 6e 73 70 28 |*adstr &|& consp(|
|00000580| 6c 69 73 74 29 29 0d 09 | 6c 69 73 74 20 3d 20 28 |list))..|list = (|
|00000590| 2a 61 64 73 74 72 2b 2b | 20 3d 3d 20 27 61 27 20 |*adstr++| == 'a' |
|000005a0| 3f 20 63 61 72 28 6c 69 | 73 74 29 20 3a 20 63 64 |? car(li|st) : cd|
|000005b0| 72 28 6c 69 73 74 29 29 | 3b 0d 0d 20 20 20 20 2f |r(list))|;.. /|
|000005c0| 2a 20 6d 61 6b 65 20 73 | 75 72 65 20 74 68 65 20 |* make s|ure the |
|000005d0| 6f 70 65 72 61 74 69 6f | 6e 20 73 75 63 63 65 65 |operatio|n succee|
|000005e0| 64 65 64 20 2a 2f 0d 20 | 20 20 20 69 66 20 28 2a |ded */. | if (*|
|000005f0| 61 64 73 74 72 20 26 26 | 20 6c 69 73 74 29 0d 09 |adstr &&| list)..|
|00000600| 78 6c 66 61 69 6c 28 22 | 62 61 64 20 61 72 67 75 |xlfail("|bad argu|
|00000610| 6d 65 6e 74 22 29 3b 0d | 0d 20 20 20 20 2f 2a 20 |ment");.|. /* |
|00000620| 72 65 74 75 72 6e 20 74 | 68 65 20 72 65 73 75 6c |return t|he resul|
|00000630| 74 20 2a 2f 0d 20 20 20 | 20 72 65 74 75 72 6e 20 |t */. | return |
|00000640| 28 6c 69 73 74 29 3b 0d | 7d 0d 0d 2f 2a 20 78 63 |(list);.|}../* xc|
|00000650| 6f 6e 73 20 2d 20 63 6f | 6e 73 74 72 75 63 74 20 |ons - co|nstruct |
|00000660| 61 20 6e 65 77 20 6c 69 | 73 74 20 63 65 6c 6c 20 |a new li|st cell |
|00000670| 2a 2f 0d 4e 4f 44 45 20 | 2a 78 63 6f 6e 73 28 61 |*/.NODE |*xcons(a|
|00000680| 72 67 73 29 0d 20 20 4e | 4f 44 45 20 2a 61 72 67 |rgs). N|ODE *arg|
|00000690| 73 3b 0d 7b 0d 20 20 20 | 20 4e 4f 44 45 20 2a 61 |s;.{. | NODE *a|
|000006a0| 72 67 31 2c 2a 61 72 67 | 32 2c 2a 76 61 6c 3b 0d |rg1,*arg|2,*val;.|
|000006b0| 0d 20 20 20 20 2f 2a 20 | 67 65 74 20 74 68 65 20 |. /* |get the |
|000006c0| 74 77 6f 20 61 72 67 75 | 6d 65 6e 74 73 20 2a 2f |two argu|ments */|
|000006d0| 0d 20 20 20 20 61 72 67 | 31 20 3d 20 78 6c 61 72 |. arg|1 = xlar|
|000006e0| 67 28 26 61 72 67 73 29 | 3b 0d 20 20 20 20 61 72 |g(&args)|;. ar|
|000006f0| 67 32 20 3d 20 78 6c 61 | 72 67 28 26 61 72 67 73 |g2 = xla|rg(&args|
|00000700| 29 3b 0d 20 20 20 20 78 | 6c 6c 61 73 74 61 72 67 |);. x|llastarg|
|00000710| 28 61 72 67 73 29 3b 0d | 0d 20 20 20 20 2f 2a 20 |(args);.|. /* |
|00000720| 63 6f 6e 73 74 72 75 63 | 74 20 61 20 6e 65 77 20 |construc|t a new |
|00000730| 6c 69 73 74 20 65 6c 65 | 6d 65 6e 74 20 2a 2f 0d |list ele|ment */.|
|00000740| 20 20 20 20 76 61 6c 20 | 3d 20 6e 65 77 6e 6f 64 | val |= newnod|
|00000750| 65 28 4c 49 53 54 29 3b | 0d 20 20 20 20 72 70 6c |e(LIST);|. rpl|
|00000760| 61 63 61 28 76 61 6c 2c | 61 72 67 31 29 3b 0d 20 |aca(val,|arg1);. |
|00000770| 20 20 20 72 70 6c 61 63 | 64 28 76 61 6c 2c 61 72 | rplac|d(val,ar|
|00000780| 67 32 29 3b 0d 0d 20 20 | 20 20 2f 2a 20 72 65 74 |g2);.. | /* ret|
|00000790| 75 72 6e 20 74 68 65 20 | 6c 69 73 74 20 2a 2f 0d |urn the |list */.|
|000007a0| 20 20 20 20 72 65 74 75 | 72 6e 20 28 76 61 6c 29 | retu|rn (val)|
|000007b0| 3b 0d 7d 0d 0d 2f 2a 20 | 78 6c 69 73 74 20 2d 20 |;.}../* |xlist - |
|000007c0| 62 75 69 6c 74 20 61 20 | 6c 69 73 74 20 6f 66 20 |built a |list of |
|000007d0| 74 68 65 20 61 72 67 75 | 6d 65 6e 74 73 20 2a 2f |the argu|ments */|
|000007e0| 0d 4e 4f 44 45 20 2a 78 | 6c 69 73 74 28 61 72 67 |.NODE *x|list(arg|
|000007f0| 73 29 0d 20 20 4e 4f 44 | 45 20 2a 61 72 67 73 3b |s). NOD|E *args;|
|00000800| 0d 7b 0d 20 20 20 20 4e | 4f 44 45 20 2a 6f 6c 64 |.{. N|ODE *old|
|00000810| 73 74 6b 2c 61 72 67 2c | 6c 69 73 74 2c 76 61 6c |stk,arg,|list,val|
|00000820| 2c 2a 6c 61 73 74 2c 2a | 6c 70 74 72 3b 0d 0d 20 |,*last,*|lptr;.. |
|00000830| 20 20 20 2f 2a 20 63 72 | 65 61 74 65 20 61 20 6e | /* cr|eate a n|
|00000840| 65 77 20 73 74 61 63 6b | 20 66 72 61 6d 65 20 2a |ew stack| frame *|
|00000850| 2f 0d 20 20 20 20 6f 6c | 64 73 74 6b 20 3d 20 78 |/. ol|dstk = x|
|00000860| 6c 73 61 76 65 28 26 61 | 72 67 2c 26 6c 69 73 74 |lsave(&a|rg,&list|
|00000870| 2c 26 76 61 6c 2c 4e 55 | 4c 4c 29 3b 0d 0d 20 20 |,&val,NU|LL);.. |
|00000880| 20 20 2f 2a 20 69 6e 69 | 74 69 61 6c 69 7a 65 20 | /* ini|tialize |
|00000890| 2a 2f 0d 20 20 20 20 61 | 72 67 2e 6e 5f 70 74 72 |*/. a|rg.n_ptr|
|000008a0| 20 3d 20 61 72 67 73 3b | 0d 0d 20 20 20 20 2f 2a | = args;|.. /*|
|000008b0| 20 65 76 61 6c 75 61 74 | 65 20 61 6e 64 20 61 70 | evaluat|e and ap|
|000008c0| 70 65 6e 64 20 65 61 63 | 68 20 61 72 67 75 6d 65 |pend eac|h argume|
|000008d0| 6e 74 20 2a 2f 0d 20 20 | 20 20 66 6f 72 20 28 6c |nt */. | for (l|
|000008e0| 61 73 74 20 3d 20 4e 49 | 4c 3b 20 61 72 67 2e 6e |ast = NI|L; arg.n|
|000008f0| 5f 70 74 72 20 21 3d 20 | 4e 49 4c 3b 20 6c 61 73 |_ptr != |NIL; las|
|00000900| 74 20 3d 20 6c 70 74 72 | 29 20 7b 0d 0d 09 2f 2a |t = lptr|) {.../*|
|00000910| 20 65 76 61 6c 75 61 74 | 65 20 74 68 65 20 6e 65 | evaluat|e the ne|
|00000920| 78 74 20 61 72 67 75 6d | 65 6e 74 20 2a 2f 0d 09 |xt argum|ent */..|
|00000930| 76 61 6c 2e 6e 5f 70 74 | 72 20 3d 20 78 6c 61 72 |val.n_pt|r = xlar|
|00000940| 67 28 26 61 72 67 2e 6e | 5f 70 74 72 29 3b 0d 0d |g(&arg.n|_ptr);..|
|00000950| 09 2f 2a 20 61 70 70 65 | 6e 64 20 74 68 69 73 20 |./* appe|nd this |
|00000960| 61 72 67 75 6d 65 6e 74 | 20 74 6f 20 74 68 65 20 |argument| to the |
|00000970| 65 6e 64 20 6f 66 20 74 | 68 65 20 6c 69 73 74 20 |end of t|he list |
|00000980| 2a 2f 0d 09 6c 70 74 72 | 20 3d 20 6e 65 77 6e 6f |*/..lptr| = newno|
|00000990| 64 65 28 4c 49 53 54 29 | 3b 0d 09 69 66 20 28 6c |de(LIST)|;..if (l|
|000009a0| 61 73 74 20 3d 3d 20 4e | 49 4c 29 0d 09 20 20 20 |ast == N|IL).. |
|000009b0| 20 6c 69 73 74 2e 6e 5f | 70 74 72 20 3d 20 6c 70 | list.n_|ptr = lp|
|000009c0| 74 72 3b 0d 09 65 6c 73 | 65 0d 09 20 20 20 20 72 |tr;..els|e.. r|
|000009d0| 70 6c 61 63 64 28 6c 61 | 73 74 2c 6c 70 74 72 29 |placd(la|st,lptr)|
|000009e0| 3b 0d 09 72 70 6c 61 63 | 61 28 6c 70 74 72 2c 76 |;..rplac|a(lptr,v|
|000009f0| 61 6c 2e 6e 5f 70 74 72 | 29 3b 0d 20 20 20 20 7d |al.n_ptr|);. }|
|00000a00| 0d 0d 20 20 20 20 2f 2a | 20 72 65 73 74 6f 72 65 |.. /*| restore|
|00000a10| 20 74 68 65 20 70 72 65 | 76 69 6f 75 73 20 73 74 | the pre|vious st|
|00000a20| 61 63 6b 20 66 72 61 6d | 65 20 2a 2f 0d 20 20 20 |ack fram|e */. |
|00000a30| 20 78 6c 73 74 61 63 6b | 20 3d 20 6f 6c 64 73 74 | xlstack| = oldst|
|00000a40| 6b 3b 0d 0d 20 20 20 20 | 2f 2a 20 72 65 74 75 72 |k;.. |/* retur|
|00000a50| 6e 20 74 68 65 20 6c 69 | 73 74 20 2a 2f 0d 20 20 |n the li|st */. |
|00000a60| 20 20 72 65 74 75 72 6e | 20 28 6c 69 73 74 2e 6e | return| (list.n|
|00000a70| 5f 70 74 72 29 3b 0d 7d | 0d 0d 2f 2a 20 78 61 70 |_ptr);.}|../* xap|
|00000a80| 70 65 6e 64 20 2d 20 62 | 75 69 6c 74 2d 69 6e 20 |pend - b|uilt-in |
|00000a90| 66 75 6e 63 74 69 6f 6e | 20 61 70 70 65 6e 64 20 |function| append |
|00000aa0| 2a 2f 0d 4e 4f 44 45 20 | 2a 78 61 70 70 65 6e 64 |*/.NODE |*xappend|
|00000ab0| 28 61 72 67 73 29 0d 20 | 20 4e 4f 44 45 20 2a 61 |(args). | NODE *a|
|00000ac0| 72 67 73 3b 0d 7b 0d 20 | 20 20 20 4e 4f 44 45 20 |rgs;.{. | NODE |
|00000ad0| 2a 6f 6c 64 73 74 6b 2c | 61 72 67 2c 6c 69 73 74 |*oldstk,|arg,list|
|00000ae0| 2c 6c 61 73 74 2c 76 61 | 6c 2c 2a 6c 70 74 72 3b |,last,va|l,*lptr;|
|00000af0| 0d 0d 20 20 20 20 2f 2a | 20 63 72 65 61 74 65 20 |.. /*| create |
|00000b00| 61 20 6e 65 77 20 73 74 | 61 63 6b 20 66 72 61 6d |a new st|ack fram|
|00000b10| 65 20 2a 2f 0d 20 20 20 | 20 6f 6c 64 73 74 6b 20 |e */. | oldstk |
|00000b20| 3d 20 78 6c 73 61 76 65 | 28 26 61 72 67 2c 26 6c |= xlsave|(&arg,&l|
|00000b30| 69 73 74 2c 26 6c 61 73 | 74 2c 26 76 61 6c 2c 4e |ist,&las|t,&val,N|
|00000b40| 55 4c 4c 29 3b 0d 0d 20 | 20 20 20 2f 2a 20 69 6e |ULL);.. | /* in|
|00000b50| 69 74 69 61 6c 69 7a 65 | 20 2a 2f 0d 20 20 20 20 |itialize| */. |
|00000b60| 61 72 67 2e 6e 5f 70 74 | 72 20 3d 20 61 72 67 73 |arg.n_pt|r = args|
|00000b70| 3b 0d 0d 20 20 20 20 2f | 2a 20 65 76 61 6c 75 61 |;.. /|* evalua|
|00000b80| 74 65 20 61 6e 64 20 61 | 70 70 65 6e 64 20 65 61 |te and a|ppend ea|
|00000b90| 63 68 20 61 72 67 75 6d | 65 6e 74 20 2a 2f 0d 20 |ch argum|ent */. |
|00000ba0| 20 20 20 77 68 69 6c 65 | 20 28 61 72 67 2e 6e 5f | while| (arg.n_|
|00000bb0| 70 74 72 29 20 7b 0d 0d | 09 2f 2a 20 65 76 61 6c |ptr) {..|./* eval|
|00000bc0| 75 61 74 65 20 74 68 65 | 20 6e 65 78 74 20 61 72 |uate the| next ar|
|00000bd0| 67 75 6d 65 6e 74 20 2a | 2f 0d 09 6c 69 73 74 2e |gument *|/..list.|
|00000be0| 6e 5f 70 74 72 20 3d 20 | 78 6c 6d 61 74 63 68 28 |n_ptr = |xlmatch(|
|00000bf0| 4c 49 53 54 2c 26 61 72 | 67 2e 6e 5f 70 74 72 29 |LIST,&ar|g.n_ptr)|
|00000c00| 3b 0d 0d 09 2f 2a 20 61 | 70 70 65 6e 64 20 65 61 |;.../* a|ppend ea|
|00000c10| 63 68 20 65 6c 65 6d 65 | 6e 74 20 6f 66 20 74 68 |ch eleme|nt of th|
|00000c20| 69 73 20 6c 69 73 74 20 | 74 6f 20 74 68 65 20 72 |is list |to the r|
|00000c30| 65 73 75 6c 74 20 6c 69 | 73 74 20 2a 2f 0d 09 77 |esult li|st */..w|
|00000c40| 68 69 6c 65 20 28 63 6f | 6e 73 70 28 6c 69 73 74 |hile (co|nsp(list|
|00000c50| 2e 6e 5f 70 74 72 29 29 | 20 7b 0d 0d 09 20 20 20 |.n_ptr))| {... |
|00000c60| 20 2f 2a 20 61 70 70 65 | 6e 64 20 74 68 69 73 20 | /* appe|nd this |
|00000c70| 65 6c 65 6d 65 6e 74 20 | 2a 2f 0d 09 20 20 20 20 |element |*/.. |
|00000c80| 6c 70 74 72 20 3d 20 6e | 65 77 6e 6f 64 65 28 4c |lptr = n|ewnode(L|
|00000c90| 49 53 54 29 3b 0d 09 20 | 20 20 20 69 66 20 28 6c |IST);.. | if (l|
|00000ca0| 61 73 74 2e 6e 5f 70 74 | 72 20 3d 3d 20 4e 49 4c |ast.n_pt|r == NIL|
|00000cb0| 29 0d 09 09 76 61 6c 2e | 6e 5f 70 74 72 20 3d 20 |)...val.|n_ptr = |
|00000cc0| 6c 70 74 72 3b 0d 09 20 | 20 20 20 65 6c 73 65 0d |lptr;.. | else.|
|00000cd0| 09 09 72 70 6c 61 63 64 | 28 6c 61 73 74 2e 6e 5f |..rplacd|(last.n_|
|00000ce0| 70 74 72 2c 6c 70 74 72 | 29 3b 0d 09 20 20 20 20 |ptr,lptr|);.. |
|00000cf0| 72 70 6c 61 63 61 28 6c | 70 74 72 2c 63 61 72 28 |rplaca(l|ptr,car(|
|00000d00| 6c 69 73 74 2e 6e 5f 70 | 74 72 29 29 3b 0d 0d 09 |list.n_p|tr));...|
|00000d10| 20 20 20 20 2f 2a 20 73 | 61 76 65 20 74 68 65 20 | /* s|ave the |
|00000d20| 6e 65 77 20 6c 61 73 74 | 20 65 6c 65 6d 65 6e 74 |new last| element|
|00000d30| 20 2a 2f 0d 09 20 20 20 | 20 6c 61 73 74 2e 6e 5f | */.. | last.n_|
|00000d40| 70 74 72 20 3d 20 6c 70 | 74 72 3b 0d 0d 09 20 20 |ptr = lp|tr;... |
|00000d50| 20 20 2f 2a 20 6d 6f 76 | 65 20 74 6f 20 74 68 65 | /* mov|e to the|
|00000d60| 20 6e 65 78 74 20 65 6c | 65 6d 65 6e 74 20 2a 2f | next el|ement */|
|00000d70| 0d 09 20 20 20 20 6c 69 | 73 74 2e 6e 5f 70 74 72 |.. li|st.n_ptr|
|00000d80| 20 3d 20 63 64 72 28 6c | 69 73 74 2e 6e 5f 70 74 | = cdr(l|ist.n_pt|
|00000d90| 72 29 3b 0d 09 7d 0d 20 | 20 20 20 7d 0d 0d 20 20 |r);..}. | }.. |
|00000da0| 20 20 2f 2a 20 72 65 73 | 74 6f 72 65 20 70 72 65 | /* res|tore pre|
|00000db0| 76 69 6f 75 73 20 73 74 | 61 63 6b 20 66 72 61 6d |vious st|ack fram|
|00000dc0| 65 20 2a 2f 0d 20 20 20 | 20 78 6c 73 74 61 63 6b |e */. | xlstack|
|00000dd0| 20 3d 20 6f 6c 64 73 74 | 6b 3b 0d 0d 20 20 20 20 | = oldst|k;.. |
|00000de0| 2f 2a 20 72 65 74 75 72 | 6e 20 74 68 65 20 6c 69 |/* retur|n the li|
|00000df0| 73 74 20 2a 2f 0d 20 20 | 20 20 72 65 74 75 72 6e |st */. | return|
|00000e00| 20 28 76 61 6c 2e 6e 5f | 70 74 72 29 3b 0d 7d 0d | (val.n_|ptr);.}.|
|00000e10| 0d 2f 2a 20 78 72 65 76 | 65 72 73 65 20 2d 20 62 |./* xrev|erse - b|
|00000e20| 75 69 6c 74 2d 69 6e 20 | 66 75 6e 63 74 69 6f 6e |uilt-in |function|
|00000e30| 20 72 65 76 65 72 73 65 | 20 2a 2f 0d 4e 4f 44 45 | reverse| */.NODE|
|00000e40| 20 2a 78 72 65 76 65 72 | 73 65 28 61 72 67 73 29 | *xrever|se(args)|
|00000e50| 0d 20 20 4e 4f 44 45 20 | 2a 61 72 67 73 3b 0d 7b |. NODE |*args;.{|
|00000e60| 0d 20 20 20 20 4e 4f 44 | 45 20 2a 6f 6c 64 73 74 |. NOD|E *oldst|
|00000e70| 6b 2c 6c 69 73 74 2c 76 | 61 6c 2c 2a 6c 70 74 72 |k,list,v|al,*lptr|
|00000e80| 3b 0d 0d 20 20 20 20 2f | 2a 20 63 72 65 61 74 65 |;.. /|* create|
|00000e90| 20 61 20 6e 65 77 20 73 | 74 61 63 6b 20 66 72 61 | a new s|tack fra|
|00000ea0| 6d 65 20 2a 2f 0d 20 20 | 20 20 6f 6c 64 73 74 6b |me */. | oldstk|
|00000eb0| 20 3d 20 78 6c 73 61 76 | 65 28 26 6c 69 73 74 2c | = xlsav|e(&list,|
|00000ec0| 26 76 61 6c 2c 4e 55 4c | 4c 29 3b 0d 0d 20 20 20 |&val,NUL|L);.. |
|00000ed0| 20 2f 2a 20 67 65 74 20 | 74 68 65 20 6c 69 73 74 | /* get |the list|
|00000ee0| 20 74 6f 20 72 65 76 65 | 72 73 65 20 2a 2f 0d 20 | to reve|rse */. |
|00000ef0| 20 20 20 6c 69 73 74 2e | 6e 5f 70 74 72 20 3d 20 | list.|n_ptr = |
|00000f00| 78 6c 6d 61 74 63 68 28 | 4c 49 53 54 2c 26 61 72 |xlmatch(|LIST,&ar|
|00000f10| 67 73 29 3b 0d 20 20 20 | 20 78 6c 6c 61 73 74 61 |gs);. | xllasta|
|00000f20| 72 67 28 61 72 67 73 29 | 3b 0d 0d 20 20 20 20 2f |rg(args)|;.. /|
|00000f30| 2a 20 61 70 70 65 6e 64 | 20 65 61 63 68 20 65 6c |* append| each el|
|00000f40| 65 6d 65 6e 74 20 6f 66 | 20 74 68 69 73 20 6c 69 |ement of| this li|
|00000f50| 73 74 20 74 6f 20 74 68 | 65 20 72 65 73 75 6c 74 |st to th|e result|
|00000f60| 20 6c 69 73 74 20 2a 2f | 0d 20 20 20 20 77 68 69 | list */|. whi|
|00000f70| 6c 65 20 28 63 6f 6e 73 | 70 28 6c 69 73 74 2e 6e |le (cons|p(list.n|
|00000f80| 5f 70 74 72 29 29 20 7b | 0d 0d 09 2f 2a 20 61 70 |_ptr)) {|.../* ap|
|00000f90| 70 65 6e 64 20 74 68 69 | 73 20 65 6c 65 6d 65 6e |pend thi|s elemen|
|00000fa0| 74 20 2a 2f 0d 09 6c 70 | 74 72 20 3d 20 6e 65 77 |t */..lp|tr = new|
|00000fb0| 6e 6f 64 65 28 4c 49 53 | 54 29 3b 0d 09 72 70 6c |node(LIS|T);..rpl|
|00000fc0| 61 63 61 28 6c 70 74 72 | 2c 63 61 72 28 6c 69 73 |aca(lptr|,car(lis|
|00000fd0| 74 2e 6e 5f 70 74 72 29 | 29 3b 0d 09 72 70 6c 61 |t.n_ptr)|);..rpla|
|00000fe0| 63 64 28 6c 70 74 72 2c | 76 61 6c 2e 6e 5f 70 74 |cd(lptr,|val.n_pt|
|00000ff0| 72 29 3b 0d 09 76 61 6c | 2e 6e 5f 70 74 72 20 3d |r);..val|.n_ptr =|
|00001000| 20 6c 70 74 72 3b 0d 0d | 09 2f 2a 20 6d 6f 76 65 | lptr;..|./* move|
|00001010| 20 74 6f 20 74 68 65 20 | 6e 65 78 74 20 65 6c 65 | to the |next ele|
|00001020| 6d 65 6e 74 20 2a 2f 0d | 09 6c 69 73 74 2e 6e 5f |ment */.|.list.n_|
|00001030| 70 74 72 20 3d 20 63 64 | 72 28 6c 69 73 74 2e 6e |ptr = cd|r(list.n|
|00001040| 5f 70 74 72 29 3b 0d 20 | 20 20 20 7d 0d 0d 20 20 |_ptr);. | }.. |
|00001050| 20 20 2f 2a 20 72 65 73 | 74 6f 72 65 20 70 72 65 | /* res|tore pre|
|00001060| 76 69 6f 75 73 20 73 74 | 61 63 6b 20 66 72 61 6d |vious st|ack fram|
|00001070| 65 20 2a 2f 0d 20 20 20 | 20 78 6c 73 74 61 63 6b |e */. | xlstack|
|00001080| 20 3d 20 6f 6c 64 73 74 | 6b 3b 0d 0d 20 20 20 20 | = oldst|k;.. |
|00001090| 2f 2a 20 72 65 74 75 72 | 6e 20 74 68 65 20 6c 69 |/* retur|n the li|
|000010a0| 73 74 20 2a 2f 0d 20 20 | 20 20 72 65 74 75 72 6e |st */. | return|
|000010b0| 20 28 76 61 6c 2e 6e 5f | 70 74 72 29 3b 0d 7d 0d | (val.n_|ptr);.}.|
|000010c0| 0d 2f 2a 20 78 6c 61 73 | 74 20 2d 20 72 65 74 75 |./* xlas|t - retu|
|000010d0| 72 6e 20 74 68 65 20 6c | 61 73 74 20 63 6f 6e 73 |rn the l|ast cons|
|000010e0| 20 6f 66 20 61 20 6c 69 | 73 74 20 2a 2f 0d 4e 4f | of a li|st */.NO|
|000010f0| 44 45 20 2a 78 6c 61 73 | 74 28 61 72 67 73 29 0d |DE *xlas|t(args).|
|00001100| 20 20 4e 4f 44 45 20 2a | 61 72 67 73 3b 0d 7b 0d | NODE *|args;.{.|
|00001110| 20 20 20 20 4e 4f 44 45 | 20 2a 6c 69 73 74 3b 0d | NODE| *list;.|
|00001120| 0d 20 20 20 20 2f 2a 20 | 67 65 74 20 74 68 65 20 |. /* |get the |
|00001130| 6c 69 73 74 20 2a 2f 0d | 20 20 20 20 6c 69 73 74 |list */.| list|
|00001140| 20 3d 20 78 6c 6d 61 74 | 63 68 28 4c 49 53 54 2c | = xlmat|ch(LIST,|
|00001150| 26 61 72 67 73 29 3b 0d | 20 20 20 20 78 6c 6c 61 |&args);.| xlla|
|00001160| 73 74 61 72 67 28 61 72 | 67 73 29 3b 0d 0d 20 20 |starg(ar|gs);.. |
|00001170| 20 20 2f 2a 20 66 69 6e | 64 20 74 68 65 20 6c 61 | /* fin|d the la|
|00001180| 73 74 20 63 6f 6e 73 20 | 2a 2f 0d 20 20 20 20 77 |st cons |*/. w|
|00001190| 68 69 6c 65 20 28 63 6f | 6e 73 70 28 6c 69 73 74 |hile (co|nsp(list|
|000011a0| 29 20 26 26 20 63 64 72 | 28 6c 69 73 74 29 29 0d |) && cdr|(list)).|
|000011b0| 09 6c 69 73 74 20 3d 20 | 63 64 72 28 6c 69 73 74 |.list = |cdr(list|
|000011c0| 29 3b 0d 0d 20 20 20 20 | 2f 2a 20 72 65 74 75 72 |);.. |/* retur|
|000011d0| 6e 20 74 68 65 20 6c 61 | 73 74 20 65 6c 65 6d 65 |n the la|st eleme|
|000011e0| 6e 74 20 2a 2f 0d 20 20 | 20 20 72 65 74 75 72 6e |nt */. | return|
|000011f0| 20 28 6c 69 73 74 29 3b | 0d 7d 0d 0d 2f 2a 20 78 | (list);|.}../* x|
|00001200| 6d 65 6d 62 65 72 20 2d | 20 62 75 69 6c 74 2d 69 |member -| built-i|
|00001210| 6e 20 66 75 6e 63 74 69 | 6f 6e 20 27 6d 65 6d 62 |n functi|on 'memb|
|00001220| 65 72 27 20 2a 2f 0d 4e | 4f 44 45 20 2a 78 6d 65 |er' */.N|ODE *xme|
|00001230| 6d 62 65 72 28 61 72 67 | 73 29 0d 20 20 4e 4f 44 |mber(arg|s). NOD|
|00001240| 45 20 2a 61 72 67 73 3b | 0d 7b 0d 20 20 20 20 4e |E *args;|.{. N|
|00001250| 4f 44 45 20 2a 6f 6c 64 | 73 74 6b 2c 78 2c 6c 69 |ODE *old|stk,x,li|
|00001260| 73 74 2c 66 63 6e 2c 2a | 76 61 6c 3b 0d 20 20 20 |st,fcn,*|val;. |
|00001270| 20 69 6e 74 20 74 72 65 | 73 75 6c 74 3b 0d 0d 20 | int tre|sult;.. |
|00001280| 20 20 20 2f 2a 20 63 72 | 65 61 74 65 20 61 20 6e | /* cr|eate a n|
|00001290| 65 77 20 73 74 61 63 6b | 20 66 72 61 6d 65 20 2a |ew stack| frame *|
|000012a0| 2f 0d 20 20 20 20 6f 6c | 64 73 74 6b 20 3d 20 78 |/. ol|dstk = x|
|000012b0| 6c 73 61 76 65 28 26 78 | 2c 26 6c 69 73 74 2c 26 |lsave(&x|,&list,&|
|000012c0| 66 63 6e 2c 4e 55 4c 4c | 29 3b 0d 0d 20 20 20 20 |fcn,NULL|);.. |
|000012d0| 2f 2a 20 67 65 74 20 74 | 68 65 20 65 78 70 72 65 |/* get t|he expre|
|000012e0| 73 73 69 6f 6e 20 74 6f | 20 6c 6f 6f 6b 20 66 6f |ssion to| look fo|
|000012f0| 72 20 61 6e 64 20 74 68 | 65 20 6c 69 73 74 20 2a |r and th|e list *|
|00001300| 2f 0d 20 20 20 20 78 2e | 6e 5f 70 74 72 20 3d 20 |/. x.|n_ptr = |
|00001310| 78 6c 61 72 67 28 26 61 | 72 67 73 29 3b 0d 20 20 |xlarg(&a|rgs);. |
|00001320| 20 20 6c 69 73 74 2e 6e | 5f 70 74 72 20 3d 20 78 | list.n|_ptr = x|
|00001330| 6c 6d 61 74 63 68 28 4c | 49 53 54 2c 26 61 72 67 |lmatch(L|IST,&arg|
|00001340| 73 29 3b 0d 20 20 20 20 | 78 6c 74 65 73 74 28 26 |s);. |xltest(&|
|00001350| 66 63 6e 2e 6e 5f 70 74 | 72 2c 26 74 72 65 73 75 |fcn.n_pt|r,&tresu|
|00001360| 6c 74 2c 26 61 72 67 73 | 29 3b 0d 20 20 20 20 78 |lt,&args|);. x|
|00001370| 6c 6c 61 73 74 61 72 67 | 28 61 72 67 73 29 3b 0d |llastarg|(args);.|
|00001380| 0d 20 20 20 20 2f 2a 20 | 6c 6f 6f 6b 20 66 6f 72 |. /* |look for|
|00001390| 20 74 68 65 20 65 78 70 | 72 65 73 73 69 6f 6e 20 | the exp|ression |
|000013a0| 2a 2f 0d 20 20 20 20 66 | 6f 72 20 28 76 61 6c 20 |*/. f|or (val |
|000013b0| 3d 20 4e 49 4c 3b 20 63 | 6f 6e 73 70 28 6c 69 73 |= NIL; c|onsp(lis|
|000013c0| 74 2e 6e 5f 70 74 72 29 | 3b 20 6c 69 73 74 2e 6e |t.n_ptr)|; list.n|
|000013d0| 5f 70 74 72 20 3d 20 63 | 64 72 28 6c 69 73 74 2e |_ptr = c|dr(list.|
|000013e0| 6e 5f 70 74 72 29 29 0d | 09 69 66 20 28 64 6f 74 |n_ptr)).|.if (dot|
|000013f0| 65 73 74 28 78 2e 6e 5f | 70 74 72 2c 63 61 72 28 |est(x.n_|ptr,car(|
|00001400| 6c 69 73 74 2e 6e 5f 70 | 74 72 29 2c 66 63 6e 2e |list.n_p|tr),fcn.|
|00001410| 6e 5f 70 74 72 29 20 3d | 3d 20 74 72 65 73 75 6c |n_ptr) =|= tresul|
|00001420| 74 29 20 7b 0d 09 20 20 | 20 20 76 61 6c 20 3d 20 |t) {.. | val = |
|00001430| 6c 69 73 74 2e 6e 5f 70 | 74 72 3b 0d 09 20 20 20 |list.n_p|tr;.. |
|00001440| 20 62 72 65 61 6b 3b 0d | 09 7d 0d 0d 20 20 20 20 | break;.|.}.. |
|00001450| 2f 2a 20 72 65 73 74 6f | 72 65 20 74 68 65 20 70 |/* resto|re the p|
|00001460| 72 65 76 69 6f 75 73 20 | 73 74 61 63 6b 20 66 72 |revious |stack fr|
|00001470| 61 6d 65 20 2a 2f 0d 20 | 20 20 20 78 6c 73 74 61 |ame */. | xlsta|
|00001480| 63 6b 20 3d 20 6f 6c 64 | 73 74 6b 3b 0d 0d 20 20 |ck = old|stk;.. |
|00001490| 20 20 2f 2a 20 72 65 74 | 75 72 6e 20 74 68 65 20 | /* ret|urn the |
|000014a0| 72 65 73 75 6c 74 20 2a | 2f 0d 20 20 20 20 72 65 |result *|/. re|
|000014b0| 74 75 72 6e 20 28 76 61 | 6c 29 3b 0d 7d 0d 0d 2f |turn (va|l);.}../|
|000014c0| 2a 20 78 61 73 73 6f 63 | 20 2d 20 62 75 69 6c 74 |* xassoc| - built|
|000014d0| 2d 69 6e 20 66 75 6e 63 | 74 69 6f 6e 20 27 61 73 |-in func|tion 'as|
|000014e0| 73 6f 63 27 20 2a 2f 0d | 4e 4f 44 45 20 2a 78 61 |soc' */.|NODE *xa|
|000014f0| 73 73 6f 63 28 61 72 67 | 73 29 0d 20 20 4e 4f 44 |ssoc(arg|s). NOD|
|00001500| 45 20 2a 61 72 67 73 3b | 0d 7b 0d 20 20 20 20 4e |E *args;|.{. N|
|00001510| 4f 44 45 20 2a 6f 6c 64 | 73 74 6b 2c 78 2c 61 6c |ODE *old|stk,x,al|
|00001520| 69 73 74 2c 66 63 6e 2c | 2a 70 61 69 72 2c 2a 76 |ist,fcn,|*pair,*v|
|00001530| 61 6c 3b 0d 20 20 20 20 | 69 6e 74 20 74 72 65 73 |al;. |int tres|
|00001540| 75 6c 74 3b 0d 0d 20 20 | 20 20 2f 2a 20 63 72 65 |ult;.. | /* cre|
|00001550| 61 74 65 20 61 20 6e 65 | 77 20 73 74 61 63 6b 20 |ate a ne|w stack |
|00001560| 66 72 61 6d 65 20 2a 2f | 0d 20 20 20 20 6f 6c 64 |frame */|. old|
|00001570| 73 74 6b 20 3d 20 78 6c | 73 61 76 65 28 26 78 2c |stk = xl|save(&x,|
|00001580| 26 61 6c 69 73 74 2c 26 | 66 63 6e 2c 4e 55 4c 4c |&alist,&|fcn,NULL|
|00001590| 29 3b 0d 0d 20 20 20 20 | 2f 2a 20 67 65 74 20 74 |);.. |/* get t|
|000015a0| 68 65 20 65 78 70 72 65 | 73 73 69 6f 6e 20 74 6f |he expre|ssion to|
|000015b0| 20 6c 6f 6f 6b 20 66 6f | 72 20 61 6e 64 20 74 68 | look fo|r and th|
|000015c0| 65 20 61 73 73 6f 63 69 | 61 74 69 6f 6e 20 6c 69 |e associ|ation li|
|000015d0| 73 74 20 2a 2f 0d 20 20 | 20 20 78 2e 6e 5f 70 74 |st */. | x.n_pt|
|000015e0| 72 20 3d 20 78 6c 61 72 | 67 28 26 61 72 67 73 29 |r = xlar|g(&args)|
|000015f0| 3b 0d 20 20 20 20 61 6c | 69 73 74 2e 6e 5f 70 74 |;. al|ist.n_pt|
|00001600| 72 20 3d 20 78 6c 6d 61 | 74 63 68 28 4c 49 53 54 |r = xlma|tch(LIST|
|00001610| 2c 26 61 72 67 73 29 3b | 0d 20 20 20 20 78 6c 74 |,&args);|. xlt|
|00001620| 65 73 74 28 26 66 63 6e | 2e 6e 5f 70 74 72 2c 26 |est(&fcn|.n_ptr,&|
|00001630| 74 72 65 73 75 6c 74 2c | 26 61 72 67 73 29 3b 0d |tresult,|&args);.|
|00001640| 20 20 20 20 78 6c 6c 61 | 73 74 61 72 67 28 61 72 | xlla|starg(ar|
|00001650| 67 73 29 3b 0d 0d 20 20 | 20 20 2f 2a 20 6c 6f 6f |gs);.. | /* loo|
|00001660| 6b 20 66 6f 72 20 74 68 | 65 20 65 78 70 72 65 73 |k for th|e expres|
|00001670| 73 69 6f 6e 20 2a 2f 0d | 20 20 20 20 66 6f 72 20 |sion */.| for |
|00001680| 28 76 61 6c 20 3d 20 4e | 49 4c 3b 20 63 6f 6e 73 |(val = N|IL; cons|
|00001690| 70 28 61 6c 69 73 74 2e | 6e 5f 70 74 72 29 3b 20 |p(alist.|n_ptr); |
|000016a0| 61 6c 69 73 74 2e 6e 5f | 70 74 72 20 3d 20 63 64 |alist.n_|ptr = cd|
|000016b0| 72 28 61 6c 69 73 74 2e | 6e 5f 70 74 72 29 29 0d |r(alist.|n_ptr)).|
|000016c0| 09 69 66 20 28 28 70 61 | 69 72 20 3d 20 63 61 72 |.if ((pa|ir = car|
|000016d0| 28 61 6c 69 73 74 2e 6e | 5f 70 74 72 29 29 20 26 |(alist.n|_ptr)) &|
|000016e0| 26 20 63 6f 6e 73 70 28 | 70 61 69 72 29 29 0d 09 |& consp(|pair))..|
|000016f0| 20 20 20 20 69 66 20 28 | 64 6f 74 65 73 74 28 78 | if (|dotest(x|
|00001700| 2e 6e 5f 70 74 72 2c 63 | 61 72 28 70 61 69 72 29 |.n_ptr,c|ar(pair)|
|00001710| 2c 66 63 6e 2e 6e 5f 70 | 74 72 29 20 3d 3d 20 74 |,fcn.n_p|tr) == t|
|00001720| 72 65 73 75 6c 74 29 20 | 7b 0d 09 09 76 61 6c 20 |result) |{...val |
|00001730| 3d 20 70 61 69 72 3b 0d | 09 09 62 72 65 61 6b 3b |= pair;.|..break;|
|00001740| 0d 09 20 20 20 20 7d 0d | 0d 20 20 20 20 2f 2a 20 |.. }.|. /* |
|00001750| 72 65 73 74 6f 72 65 20 | 74 68 65 20 70 72 65 76 |restore |the prev|
|00001760| 69 6f 75 73 20 73 74 61 | 63 6b 20 66 72 61 6d 65 |ious sta|ck frame|
|00001770| 20 2a 2f 0d 20 20 20 20 | 78 6c 73 74 61 63 6b 20 | */. |xlstack |
|00001780| 3d 20 6f 6c 64 73 74 6b | 3b 0d 0d 20 20 20 20 2f |= oldstk|;.. /|
|00001790| 2a 20 72 65 74 75 72 6e | 20 74 68 65 20 72 65 73 |* return| the res|
|000017a0| 75 6c 74 20 2a 2f 0d 20 | 20 20 20 72 65 74 75 72 |ult */. | retur|
|000017b0| 6e 20 28 76 61 6c 29 3b | 0d 7d 0d 0d 2f 2a 20 78 |n (val);|.}../* x|
|000017c0| 73 75 62 73 74 20 2d 20 | 73 75 62 73 74 69 74 75 |subst - |substitu|
|000017d0| 74 65 20 6f 6e 65 20 65 | 78 70 72 65 73 73 69 6f |te one e|xpressio|
|000017e0| 6e 20 66 6f 72 20 61 6e | 6f 74 68 65 72 20 2a 2f |n for an|other */|
|000017f0| 0d 4e 4f 44 45 20 2a 78 | 73 75 62 73 74 28 61 72 |.NODE *x|subst(ar|
|00001800| 67 73 29 0d 20 20 4e 4f | 44 45 20 2a 61 72 67 73 |gs). NO|DE *args|
|00001810| 3b 0d 7b 0d 20 20 20 20 | 4e 4f 44 45 20 2a 6f 6c |;.{. |NODE *ol|
|00001820| 64 73 74 6b 2c 74 6f 2c | 66 72 6f 6d 2c 65 78 70 |dstk,to,|from,exp|
|00001830| 72 2c 66 63 6e 2c 2a 76 | 61 6c 3b 0d 20 20 20 20 |r,fcn,*v|al;. |
|00001840| 69 6e 74 20 74 72 65 73 | 75 6c 74 3b 0d 0d 20 20 |int tres|ult;.. |
|00001850| 20 20 2f 2a 20 63 72 65 | 61 74 65 20 61 20 6e 65 | /* cre|ate a ne|
|00001860| 77 20 73 74 61 63 6b 20 | 66 72 61 6d 65 20 2a 2f |w stack |frame */|
|00001870| 0d 20 20 20 20 6f 6c 64 | 73 74 6b 20 3d 20 78 6c |. old|stk = xl|
|00001880| 73 61 76 65 28 26 74 6f | 2c 26 66 72 6f 6d 2c 26 |save(&to|,&from,&|
|00001890| 65 78 70 72 2c 26 66 63 | 6e 2c 4e 55 4c 4c 29 3b |expr,&fc|n,NULL);|
|000018a0| 0d 0d 20 20 20 20 2f 2a | 20 67 65 74 20 74 68 65 |.. /*| get the|
|000018b0| 20 74 6f 20 76 61 6c 75 | 65 2c 20 74 68 65 20 66 | to valu|e, the f|
|000018c0| 72 6f 6d 20 76 61 6c 75 | 65 20 61 6e 64 20 74 68 |rom valu|e and th|
|000018d0| 65 20 65 78 70 72 65 73 | 73 69 6f 6e 20 2a 2f 0d |e expres|sion */.|
|000018e0| 20 20 20 20 74 6f 2e 6e | 5f 70 74 72 20 3d 20 78 | to.n|_ptr = x|
|000018f0| 6c 61 72 67 28 26 61 72 | 67 73 29 3b 0d 20 20 20 |larg(&ar|gs);. |
|00001900| 20 66 72 6f 6d 2e 6e 5f | 70 74 72 20 3d 20 78 6c | from.n_|ptr = xl|
|00001910| 61 72 67 28 26 61 72 67 | 73 29 3b 0d 20 20 20 20 |arg(&arg|s);. |
|00001920| 65 78 70 72 2e 6e 5f 70 | 74 72 20 3d 20 78 6c 61 |expr.n_p|tr = xla|
|00001930| 72 67 28 26 61 72 67 73 | 29 3b 0d 20 20 20 20 78 |rg(&args|);. x|
|00001940| 6c 74 65 73 74 28 26 66 | 63 6e 2e 6e 5f 70 74 72 |ltest(&f|cn.n_ptr|
|00001950| 2c 26 74 72 65 73 75 6c | 74 2c 26 61 72 67 73 29 |,&tresul|t,&args)|
|00001960| 3b 0d 20 20 20 20 78 6c | 6c 61 73 74 61 72 67 28 |;. xl|lastarg(|
|00001970| 61 72 67 73 29 3b 0d 0d | 20 20 20 20 2f 2a 20 64 |args);..| /* d|
|00001980| 6f 20 74 68 65 20 73 75 | 62 73 74 69 74 75 74 69 |o the su|bstituti|
|00001990| 6f 6e 20 2a 2f 0d 20 20 | 20 20 76 61 6c 20 3d 20 |on */. | val = |
|000019a0| 73 75 62 73 74 28 74 6f | 2e 6e 5f 70 74 72 2c 66 |subst(to|.n_ptr,f|
|000019b0| 72 6f 6d 2e 6e 5f 70 74 | 72 2c 65 78 70 72 2e 6e |rom.n_pt|r,expr.n|
|000019c0| 5f 70 74 72 2c 66 63 6e | 2e 6e 5f 70 74 72 2c 74 |_ptr,fcn|.n_ptr,t|
|000019d0| 72 65 73 75 6c 74 29 3b | 0d 0d 20 20 20 20 2f 2a |result);|.. /*|
|000019e0| 20 72 65 73 74 6f 72 65 | 20 74 68 65 20 70 72 65 | restore| the pre|
|000019f0| 76 69 6f 75 73 20 73 74 | 61 63 6b 20 66 72 61 6d |vious st|ack fram|
|00001a00| 65 20 2a 2f 0d 20 20 20 | 20 78 6c 73 74 61 63 6b |e */. | xlstack|
|00001a10| 20 3d 20 6f 6c 64 73 74 | 6b 3b 0d 0d 20 20 20 20 | = oldst|k;.. |
|00001a20| 2f 2a 20 72 65 74 75 72 | 6e 20 74 68 65 20 72 65 |/* retur|n the re|
|00001a30| 73 75 6c 74 20 2a 2f 0d | 20 20 20 20 72 65 74 75 |sult */.| retu|
|00001a40| 72 6e 20 28 76 61 6c 29 | 3b 0d 7d 0d 0d 2f 2a 20 |rn (val)|;.}../* |
|00001a50| 73 75 62 73 74 20 2d 20 | 73 75 62 73 74 69 74 75 |subst - |substitu|
|00001a60| 74 65 20 6f 6e 65 20 65 | 78 70 72 65 73 73 69 6f |te one e|xpressio|
|00001a70| 6e 20 66 6f 72 20 61 6e | 6f 74 68 65 72 20 2a 2f |n for an|other */|
|00001a80| 0d 4c 4f 43 41 4c 20 4e | 4f 44 45 20 2a 73 75 62 |.LOCAL N|ODE *sub|
|00001a90| 73 74 28 74 6f 2c 66 72 | 6f 6d 2c 65 78 70 72 2c |st(to,fr|om,expr,|
|00001aa0| 66 63 6e 2c 74 72 65 73 | 75 6c 74 29 0d 20 20 4e |fcn,tres|ult). N|
|00001ab0| 4f 44 45 20 2a 74 6f 2c | 2a 66 72 6f 6d 2c 2a 65 |ODE *to,|*from,*e|
|00001ac0| 78 70 72 2c 2a 66 63 6e | 3b 20 69 6e 74 20 74 72 |xpr,*fcn|; int tr|
|00001ad0| 65 73 75 6c 74 3b 0d 7b | 0d 20 20 20 20 4e 4f 44 |esult;.{|. NOD|
|00001ae0| 45 20 2a 6f 6c 64 73 74 | 6b 2c 63 61 72 76 61 6c |E *oldst|k,carval|
|00001af0| 2c 63 64 72 76 61 6c 2c | 2a 76 61 6c 3b 0d 0d 20 |,cdrval,|*val;.. |
|00001b00| 20 20 20 69 66 20 28 64 | 6f 74 65 73 74 28 65 78 | if (d|otest(ex|
|00001b10| 70 72 2c 66 72 6f 6d 2c | 66 63 6e 29 20 3d 3d 20 |pr,from,|fcn) == |
|00001b20| 74 72 65 73 75 6c 74 29 | 0d 09 76 61 6c 20 3d 20 |tresult)|..val = |
|00001b30| 74 6f 3b 0d 20 20 20 20 | 65 6c 73 65 20 69 66 20 |to;. |else if |
|00001b40| 28 63 6f 6e 73 70 28 65 | 78 70 72 29 29 20 7b 0d |(consp(e|xpr)) {.|
|00001b50| 09 6f 6c 64 73 74 6b 20 | 3d 20 78 6c 73 61 76 65 |.oldstk |= xlsave|
|00001b60| 28 26 63 61 72 76 61 6c | 2c 26 63 64 72 76 61 6c |(&carval|,&cdrval|
|00001b70| 2c 4e 55 4c 4c 29 3b 0d | 09 63 61 72 76 61 6c 2e |,NULL);.|.carval.|
|00001b80| 6e 5f 70 74 72 20 3d 20 | 73 75 62 73 74 28 74 6f |n_ptr = |subst(to|
|00001b90| 2c 66 72 6f 6d 2c 63 61 | 72 28 65 78 70 72 29 2c |,from,ca|r(expr),|
|00001ba0| 66 63 6e 2c 74 72 65 73 | 75 6c 74 29 3b 0d 09 63 |fcn,tres|ult);..c|
|00001bb0| 64 72 76 61 6c 2e 6e 5f | 70 74 72 20 3d 20 73 75 |drval.n_|ptr = su|
|00001bc0| 62 73 74 28 74 6f 2c 66 | 72 6f 6d 2c 63 64 72 28 |bst(to,f|rom,cdr(|
|00001bd0| 65 78 70 72 29 2c 66 63 | 6e 2c 74 72 65 73 75 6c |expr),fc|n,tresul|
|00001be0| 74 29 3b 0d 09 76 61 6c | 20 3d 20 6e 65 77 6e 6f |t);..val| = newno|
|00001bf0| 64 65 28 4c 49 53 54 29 | 3b 0d 09 72 70 6c 61 63 |de(LIST)|;..rplac|
|00001c00| 61 28 76 61 6c 2c 63 61 | 72 76 61 6c 2e 6e 5f 70 |a(val,ca|rval.n_p|
|00001c10| 74 72 29 3b 0d 09 72 70 | 6c 61 63 64 28 76 61 6c |tr);..rp|lacd(val|
|00001c20| 2c 63 64 72 76 61 6c 2e | 6e 5f 70 74 72 29 3b 0d |,cdrval.|n_ptr);.|
|00001c30| 09 78 6c 73 74 61 63 6b | 20 3d 20 6f 6c 64 73 74 |.xlstack| = oldst|
|00001c40| 6b 3b 0d 20 20 20 20 7d | 0d 20 20 20 20 65 6c 73 |k;. }|. els|
|00001c50| 65 0d 09 76 61 6c 20 3d | 20 65 78 70 72 3b 0d 20 |e..val =| expr;. |
|00001c60| 20 20 20 72 65 74 75 72 | 6e 20 28 76 61 6c 29 3b | retur|n (val);|
|00001c70| 0d 7d 0d 0d 2f 2a 20 78 | 73 75 62 6c 69 73 20 2d |.}../* x|sublis -|
|00001c80| 20 73 75 62 73 74 69 74 | 75 74 65 20 75 73 69 6e | substit|ute usin|
|00001c90| 67 20 61 6e 20 61 73 73 | 6f 63 69 61 74 69 6f 6e |g an ass|ociation|
|00001ca0| 20 6c 69 73 74 20 2a 2f | 0d 4e 4f 44 45 20 2a 78 | list */|.NODE *x|
|00001cb0| 73 75 62 6c 69 73 28 61 | 72 67 73 29 0d 20 20 4e |sublis(a|rgs). N|
|00001cc0| 4f 44 45 20 2a 61 72 67 | 73 3b 0d 7b 0d 20 20 20 |ODE *arg|s;.{. |
|00001cd0| 20 4e 4f 44 45 20 2a 6f | 6c 64 73 74 6b 2c 61 6c | NODE *o|ldstk,al|
|00001ce0| 69 73 74 2c 65 78 70 72 | 2c 66 63 6e 2c 2a 76 61 |ist,expr|,fcn,*va|
|00001cf0| 6c 3b 0d 20 20 20 20 69 | 6e 74 20 74 72 65 73 75 |l;. i|nt tresu|
|00001d00| 6c 74 3b 0d 0d 20 20 20 | 20 2f 2a 20 63 72 65 61 |lt;.. | /* crea|
|00001d10| 74 65 20 61 20 6e 65 77 | 20 73 74 61 63 6b 20 66 |te a new| stack f|
|00001d20| 72 61 6d 65 20 2a 2f 0d | 20 20 20 20 6f 6c 64 73 |rame */.| olds|
|00001d30| 74 6b 20 3d 20 78 6c 73 | 61 76 65 28 26 61 6c 69 |tk = xls|ave(&ali|
|00001d40| 73 74 2c 26 65 78 70 72 | 2c 26 66 63 6e 2c 4e 55 |st,&expr|,&fcn,NU|
|00001d50| 4c 4c 29 3b 0d 0d 20 20 | 20 20 2f 2a 20 67 65 74 |LL);.. | /* get|
|00001d60| 20 74 68 65 20 61 73 73 | 6f 63 61 74 69 6f 6e 20 | the ass|ocation |
|00001d70| 6c 69 73 74 20 61 6e 64 | 20 74 68 65 20 65 78 70 |list and| the exp|
|00001d80| 72 65 73 73 69 6f 6e 20 | 2a 2f 0d 20 20 20 20 61 |ression |*/. a|
|00001d90| 6c 69 73 74 2e 6e 5f 70 | 74 72 20 3d 20 78 6c 6d |list.n_p|tr = xlm|
|00001da0| 61 74 63 68 28 4c 49 53 | 54 2c 26 61 72 67 73 29 |atch(LIS|T,&args)|
|00001db0| 3b 0d 20 20 20 20 65 78 | 70 72 2e 6e 5f 70 74 72 |;. ex|pr.n_ptr|
|00001dc0| 20 3d 20 78 6c 61 72 67 | 28 26 61 72 67 73 29 3b | = xlarg|(&args);|
|00001dd0| 0d 20 20 20 20 78 6c 74 | 65 73 74 28 26 66 63 6e |. xlt|est(&fcn|
|00001de0| 2e 6e 5f 70 74 72 2c 26 | 74 72 65 73 75 6c 74 2c |.n_ptr,&|tresult,|
|00001df0| 26 61 72 67 73 29 3b 0d | 20 20 20 20 78 6c 6c 61 |&args);.| xlla|
|00001e00| 73 74 61 72 67 28 61 72 | 67 73 29 3b 0d 0d 20 20 |starg(ar|gs);.. |
|00001e10| 20 20 2f 2a 20 64 6f 20 | 74 68 65 20 73 75 62 73 | /* do |the subs|
|00001e20| 74 69 74 75 74 69 6f 6e | 20 2a 2f 0d 20 20 20 20 |titution| */. |
|00001e30| 76 61 6c 20 3d 20 73 75 | 62 6c 69 73 28 61 6c 69 |val = su|blis(ali|
|00001e40| 73 74 2e 6e 5f 70 74 72 | 2c 65 78 70 72 2e 6e 5f |st.n_ptr|,expr.n_|
|00001e50| 70 74 72 2c 66 63 6e 2e | 6e 5f 70 74 72 2c 74 72 |ptr,fcn.|n_ptr,tr|
|00001e60| 65 73 75 6c 74 29 3b 0d | 0d 20 20 20 20 2f 2a 20 |esult);.|. /* |
|00001e70| 72 65 73 74 6f 72 65 20 | 74 68 65 20 70 72 65 76 |restore |the prev|
|00001e80| 69 6f 75 73 20 73 74 61 | 63 6b 20 66 72 61 6d 65 |ious sta|ck frame|
|00001e90| 20 2a 2f 0d 20 20 20 20 | 78 6c 73 74 61 63 6b 20 | */. |xlstack |
|00001ea0| 3d 20 6f 6c 64 73 74 6b | 3b 0d 0d 20 20 20 20 2f |= oldstk|;.. /|
|00001eb0| 2a 20 72 65 74 75 72 6e | 20 74 68 65 20 72 65 73 |* return| the res|
|00001ec0| 75 6c 74 20 2a 2f 0d 20 | 20 20 20 72 65 74 75 72 |ult */. | retur|
|00001ed0| 6e 20 28 76 61 6c 29 3b | 0d 7d 0d 0d 2f 2a 20 73 |n (val);|.}../* s|
|00001ee0| 75 62 6c 69 73 20 2d 20 | 73 75 62 73 74 69 74 75 |ublis - |substitu|
|00001ef0| 74 65 20 75 73 69 6e 67 | 20 61 6e 20 61 73 73 6f |te using| an asso|
|00001f00| 63 69 61 74 69 6f 6e 20 | 6c 69 73 74 20 2a 2f 0d |ciation |list */.|
|00001f10| 4c 4f 43 41 4c 20 4e 4f | 44 45 20 2a 73 75 62 6c |LOCAL NO|DE *subl|
|00001f20| 69 73 28 61 6c 69 73 74 | 2c 65 78 70 72 2c 66 63 |is(alist|,expr,fc|
|00001f30| 6e 2c 74 72 65 73 75 6c | 74 29 0d 20 20 4e 4f 44 |n,tresul|t). NOD|
|00001f40| 45 20 2a 61 6c 69 73 74 | 2c 2a 65 78 70 72 2c 2a |E *alist|,*expr,*|
|00001f50| 66 63 6e 3b 20 69 6e 74 | 20 74 72 65 73 75 6c 74 |fcn; int| tresult|
|00001f60| 3b 0d 7b 0d 20 20 20 20 | 4e 4f 44 45 20 2a 6f 6c |;.{. |NODE *ol|
|00001f70| 64 73 74 6b 2c 63 61 72 | 76 61 6c 2c 63 64 72 76 |dstk,car|val,cdrv|
|00001f80| 61 6c 2c 2a 76 61 6c 3b | 0d 0d 20 20 20 20 69 66 |al,*val;|.. if|
|00001f90| 20 28 76 61 6c 20 3d 20 | 61 73 73 6f 63 28 65 78 | (val = |assoc(ex|
|00001fa0| 70 72 2c 61 6c 69 73 74 | 2c 66 63 6e 2c 74 72 65 |pr,alist|,fcn,tre|
|00001fb0| 73 75 6c 74 29 29 0d 09 | 76 61 6c 20 3d 20 63 64 |sult))..|val = cd|
|00001fc0| 72 28 76 61 6c 29 3b 0d | 20 20 20 20 65 6c 73 65 |r(val);.| else|
|00001fd0| 20 69 66 20 28 63 6f 6e | 73 70 28 65 78 70 72 29 | if (con|sp(expr)|
|00001fe0| 29 20 7b 0d 09 6f 6c 64 | 73 74 6b 20 3d 20 78 6c |) {..old|stk = xl|
|00001ff0| 73 61 76 65 28 26 63 61 | 72 76 61 6c 2c 26 63 64 |save(&ca|rval,&cd|
|00002000| 72 76 61 6c 2c 4e 55 4c | 4c 29 3b 0d 09 63 61 72 |rval,NUL|L);..car|
|00002010| 76 61 6c 2e 6e 5f 70 74 | 72 20 3d 20 73 75 62 6c |val.n_pt|r = subl|
|00002020| 69 73 28 61 6c 69 73 74 | 2c 63 61 72 28 65 78 70 |is(alist|,car(exp|
|00002030| 72 29 2c 66 63 6e 2c 74 | 72 65 73 75 6c 74 29 3b |r),fcn,t|result);|
|00002040| 0d 09 63 64 72 76 61 6c | 2e 6e 5f 70 74 72 20 3d |..cdrval|.n_ptr =|
|00002050| 20 73 75 62 6c 69 73 28 | 61 6c 69 73 74 2c 63 64 | sublis(|alist,cd|
|00002060| 72 28 65 78 70 72 29 2c | 66 63 6e 2c 74 72 65 73 |r(expr),|fcn,tres|
|00002070| 75 6c 74 29 3b 0d 09 76 | 61 6c 20 3d 20 6e 65 77 |ult);..v|al = new|
|00002080| 6e 6f 64 65 28 4c 49 53 | 54 29 3b 0d 09 72 70 6c |node(LIS|T);..rpl|
|00002090| 61 63 61 28 76 61 6c 2c | 63 61 72 76 61 6c 2e 6e |aca(val,|carval.n|
|000020a0| 5f 70 74 72 29 3b 0d 09 | 72 70 6c 61 63 64 28 76 |_ptr);..|rplacd(v|
|000020b0| 61 6c 2c 63 64 72 76 61 | 6c 2e 6e 5f 70 74 72 29 |al,cdrva|l.n_ptr)|
|000020c0| 3b 0d 09 78 6c 73 74 61 | 63 6b 20 3d 20 6f 6c 64 |;..xlsta|ck = old|
|000020d0| 73 74 6b 3b 0d 20 20 20 | 20 7d 0d 20 20 20 20 65 |stk;. | }. e|
|000020e0| 6c 73 65 0d 09 76 61 6c | 20 3d 20 65 78 70 72 3b |lse..val| = expr;|
|000020f0| 0d 20 20 20 20 72 65 74 | 75 72 6e 20 28 76 61 6c |. ret|urn (val|
|00002100| 29 3b 0d 7d 0d 0d 2f 2a | 20 61 73 73 6f 63 20 2d |);.}../*| assoc -|
|00002110| 20 66 69 6e 64 20 61 20 | 70 61 69 72 20 69 6e 20 | find a |pair in |
|00002120| 61 6e 20 61 73 73 6f 63 | 69 61 74 69 6f 6e 20 6c |an assoc|iation l|
|00002130| 69 73 74 20 2a 2f 0d 4c | 4f 43 41 4c 20 4e 4f 44 |ist */.L|OCAL NOD|
|00002140| 45 20 2a 61 73 73 6f 63 | 28 65 78 70 72 2c 61 6c |E *assoc|(expr,al|
|00002150| 69 73 74 2c 66 63 6e 2c | 74 72 65 73 75 6c 74 29 |ist,fcn,|tresult)|
|00002160| 0d 20 20 4e 4f 44 45 20 | 2a 65 78 70 72 2c 2a 61 |. NODE |*expr,*a|
|00002170| 6c 69 73 74 2c 2a 66 63 | 6e 3b 20 69 6e 74 20 74 |list,*fc|n; int t|
|00002180| 72 65 73 75 6c 74 3b 0d | 7b 0d 20 20 20 20 4e 4f |result;.|{. NO|
|00002190| 44 45 20 2a 70 61 69 72 | 3b 0d 0d 20 20 20 20 66 |DE *pair|;.. f|
|000021a0| 6f 72 20 28 3b 20 63 6f | 6e 73 70 28 61 6c 69 73 |or (; co|nsp(alis|
|000021b0| 74 29 3b 20 61 6c 69 73 | 74 20 3d 20 63 64 72 28 |t); alis|t = cdr(|
|000021c0| 61 6c 69 73 74 29 29 0d | 09 69 66 20 28 28 70 61 |alist)).|.if ((pa|
|000021d0| 69 72 20 3d 20 63 61 72 | 28 61 6c 69 73 74 29 29 |ir = car|(alist))|
|000021e0| 20 26 26 20 63 6f 6e 73 | 70 28 70 61 69 72 29 29 | && cons|p(pair))|
|000021f0| 0d 09 20 20 20 20 69 66 | 20 28 64 6f 74 65 73 74 |.. if| (dotest|
|00002200| 28 65 78 70 72 2c 63 61 | 72 28 70 61 69 72 29 2c |(expr,ca|r(pair),|
|00002210| 66 63 6e 29 20 3d 3d 20 | 74 72 65 73 75 6c 74 29 |fcn) == |tresult)|
|00002220| 0d 09 09 72 65 74 75 72 | 6e 20 28 70 61 69 72 29 |...retur|n (pair)|
|00002230| 3b 0d 20 20 20 20 72 65 | 74 75 72 6e 20 28 4e 49 |;. re|turn (NI|
|00002240| 4c 29 3b 0d 7d 0d 0d 2f | 2a 20 78 72 65 6d 6f 76 |L);.}../|* xremov|
|00002250| 65 20 2d 20 62 75 69 6c | 74 2d 69 6e 20 66 75 6e |e - buil|t-in fun|
|00002260| 63 74 69 6f 6e 20 27 72 | 65 6d 6f 76 65 27 20 2a |ction 'r|emove' *|
|00002270| 2f 0d 4e 4f 44 45 20 2a | 78 72 65 6d 6f 76 65 28 |/.NODE *|xremove(|
|00002280| 61 72 67 73 29 0d 20 20 | 4e 4f 44 45 20 2a 61 72 |args). |NODE *ar|
|00002290| 67 73 3b 0d 7b 0d 20 20 | 20 20 4e 4f 44 45 20 2a |gs;.{. | NODE *|
|000022a0| 6f 6c 64 73 74 6b 2c 78 | 2c 6c 69 73 74 2c 66 63 |oldstk,x|,list,fc|
|000022b0| 6e 2c 76 61 6c 2c 2a 70 | 2c 2a 6c 61 73 74 3b 0d |n,val,*p|,*last;.|
|000022c0| 20 20 20 20 69 6e 74 20 | 74 72 65 73 75 6c 74 3b | int |tresult;|
|000022d0| 0d 0d 20 20 20 20 2f 2a | 20 63 72 65 61 74 65 20 |.. /*| create |
|000022e0| 61 20 6e 65 77 20 73 74 | 61 63 6b 20 66 72 61 6d |a new st|ack fram|
|000022f0| 65 20 2a 2f 0d 20 20 20 | 20 6f 6c 64 73 74 6b 20 |e */. | oldstk |
|00002300| 3d 20 78 6c 73 61 76 65 | 28 26 78 2c 26 6c 69 73 |= xlsave|(&x,&lis|
|00002310| 74 2c 26 66 63 6e 2c 26 | 76 61 6c 2c 4e 55 4c 4c |t,&fcn,&|val,NULL|
|00002320| 29 3b 0d 0d 20 20 20 20 | 2f 2a 20 67 65 74 20 74 |);.. |/* get t|
|00002330| 68 65 20 65 78 70 72 65 | 73 73 69 6f 6e 20 74 6f |he expre|ssion to|
|00002340| 20 72 65 6d 6f 76 65 20 | 61 6e 64 20 74 68 65 20 | remove |and the |
|00002350| 6c 69 73 74 20 2a 2f 0d | 20 20 20 20 78 2e 6e 5f |list */.| x.n_|
|00002360| 70 74 72 20 3d 20 78 6c | 61 72 67 28 26 61 72 67 |ptr = xl|arg(&arg|
|00002370| 73 29 3b 0d 20 20 20 20 | 6c 69 73 74 2e 6e 5f 70 |s);. |list.n_p|
|00002380| 74 72 20 3d 20 78 6c 6d | 61 74 63 68 28 4c 49 53 |tr = xlm|atch(LIS|
|00002390| 54 2c 26 61 72 67 73 29 | 3b 0d 20 20 20 20 78 6c |T,&args)|;. xl|
|000023a0| 74 65 73 74 28 26 66 63 | 6e 2e 6e 5f 70 74 72 2c |test(&fc|n.n_ptr,|
|000023b0| 26 74 72 65 73 75 6c 74 | 2c 26 61 72 67 73 29 3b |&tresult|,&args);|
|000023c0| 0d 20 20 20 20 78 6c 6c | 61 73 74 61 72 67 28 61 |. xll|astarg(a|
|000023d0| 72 67 73 29 3b 0d 0d 20 | 20 20 20 2f 2a 20 72 65 |rgs);.. | /* re|
|000023e0| 6d 6f 76 65 20 6d 61 74 | 63 68 65 73 20 2a 2f 0d |move mat|ches */.|
|000023f0| 20 20 20 20 77 68 69 6c | 65 20 28 63 6f 6e 73 70 | whil|e (consp|
|00002400| 28 6c 69 73 74 2e 6e 5f | 70 74 72 29 29 20 7b 0d |(list.n_|ptr)) {.|
|00002410| 0d 09 2f 2a 20 63 68 65 | 63 6b 20 74 6f 20 73 65 |../* che|ck to se|
|00002420| 65 20 69 66 20 74 68 69 | 73 20 65 6c 65 6d 65 6e |e if thi|s elemen|
|00002430| 74 20 73 68 6f 75 6c 64 | 20 62 65 20 64 65 6c 65 |t should| be dele|
|00002440| 74 65 64 20 2a 2f 0d 09 | 69 66 20 28 64 6f 74 65 |ted */..|if (dote|
|00002450| 73 74 28 78 2e 6e 5f 70 | 74 72 2c 63 61 72 28 6c |st(x.n_p|tr,car(l|
|00002460| 69 73 74 2e 6e 5f 70 74 | 72 29 2c 66 63 6e 2e 6e |ist.n_pt|r),fcn.n|
|00002470| 5f 70 74 72 29 20 21 3d | 20 74 72 65 73 75 6c 74 |_ptr) !=| tresult|
|00002480| 29 20 7b 0d 09 20 20 20 | 20 70 20 3d 20 6e 65 77 |) {.. | p = new|
|00002490| 6e 6f 64 65 28 4c 49 53 | 54 29 3b 0d 09 20 20 20 |node(LIS|T);.. |
|000024a0| 20 72 70 6c 61 63 61 28 | 70 2c 63 61 72 28 6c 69 | rplaca(|p,car(li|
|000024b0| 73 74 2e 6e 5f 70 74 72 | 29 29 3b 0d 09 20 20 20 |st.n_ptr|));.. |
|000024c0| 20 69 66 20 28 76 61 6c | 2e 6e 5f 70 74 72 29 20 | if (val|.n_ptr) |
|000024d0| 72 70 6c 61 63 64 28 6c | 61 73 74 2c 70 29 3b 0d |rplacd(l|ast,p);.|
|000024e0| 09 20 20 20 20 65 6c 73 | 65 20 76 61 6c 2e 6e 5f |. els|e val.n_|
|000024f0| 70 74 72 20 3d 20 70 3b | 0d 09 20 20 20 20 6c 61 |ptr = p;|.. la|
|00002500| 73 74 20 3d 20 70 3b 0d | 09 7d 0d 0d 09 2f 2a 20 |st = p;.|.}.../* |
|00002510| 6d 6f 76 65 20 74 6f 20 | 74 68 65 20 6e 65 78 74 |move to |the next|
|00002520| 20 65 6c 65 6d 65 6e 74 | 20 2a 2f 0d 09 6c 69 73 | element| */..lis|
|00002530| 74 2e 6e 5f 70 74 72 20 | 3d 20 63 64 72 28 6c 69 |t.n_ptr |= cdr(li|
|00002540| 73 74 2e 6e 5f 70 74 72 | 29 3b 0d 20 20 20 20 7d |st.n_ptr|);. }|
|00002550| 0d 0d 20 20 20 20 2f 2a | 20 72 65 73 74 6f 72 65 |.. /*| restore|
|00002560| 20 74 68 65 20 70 72 65 | 76 69 6f 75 73 20 73 74 | the pre|vious st|
|00002570| 61 63 6b 20 66 72 61 6d | 65 20 2a 2f 0d 20 20 20 |ack fram|e */. |
|00002580| 20 78 6c 73 74 61 63 6b | 20 3d 20 6f 6c 64 73 74 | xlstack| = oldst|
|00002590| 6b 3b 0d 0d 20 20 20 20 | 2f 2a 20 72 65 74 75 72 |k;.. |/* retur|
|000025a0| 6e 20 74 68 65 20 75 70 | 64 61 74 65 64 20 6c 69 |n the up|dated li|
|000025b0| 73 74 20 2a 2f 0d 20 20 | 20 20 72 65 74 75 72 6e |st */. | return|
|000025c0| 20 28 76 61 6c 2e 6e 5f | 70 74 72 29 3b 0d 7d 0d | (val.n_|ptr);.}.|
|000025d0| 0d 2f 2a 20 64 6f 74 65 | 73 74 20 2d 20 63 61 6c |./* dote|st - cal|
|000025e0| 6c 20 61 20 74 65 73 74 | 20 66 75 6e 63 74 69 6f |l a test| functio|
|000025f0| 6e 20 2a 2f 0d 69 6e 74 | 20 64 6f 74 65 73 74 28 |n */.int| dotest(|
|00002600| 61 72 67 31 2c 61 72 67 | 32 2c 66 63 6e 29 0d 20 |arg1,arg|2,fcn). |
|00002610| 20 4e 4f 44 45 20 2a 61 | 72 67 31 2c 2a 61 72 67 | NODE *a|rg1,*arg|
|00002620| 32 2c 2a 66 63 6e 3b 0d | 7b 0d 20 20 20 20 4e 4f |2,*fcn;.|{. NO|
|00002630| 44 45 20 2a 6f 6c 64 73 | 74 6b 2c 61 72 67 73 2c |DE *olds|tk,args,|
|00002640| 2a 76 61 6c 3b 0d 0d 20 | 20 20 20 2f 2a 20 63 72 |*val;.. | /* cr|
|00002650| 65 61 74 65 20 61 20 6e | 65 77 20 73 74 61 63 6b |eate a n|ew stack|
|00002660| 20 66 72 61 6d 65 20 2a | 2f 0d 20 20 20 20 6f 6c | frame *|/. ol|
|00002670| 64 73 74 6b 20 3d 20 78 | 6c 73 61 76 65 28 26 61 |dstk = x|lsave(&a|
|00002680| 72 67 73 2c 4e 55 4c 4c | 29 3b 0d 0d 20 20 20 20 |rgs,NULL|);.. |
|00002690| 2f 2a 20 62 75 69 6c 64 | 20 61 6e 20 61 72 67 75 |/* build| an argu|
|000026a0| 6d 65 6e 74 20 6c 69 73 | 74 20 2a 2f 0d 20 20 20 |ment lis|t */. |
|000026b0| 20 61 72 67 73 2e 6e 5f | 70 74 72 20 3d 20 6e 65 | args.n_|ptr = ne|
|000026c0| 77 6e 6f 64 65 28 4c 49 | 53 54 29 3b 0d 20 20 20 |wnode(LI|ST);. |
|000026d0| 20 72 70 6c 61 63 61 28 | 61 72 67 73 2e 6e 5f 70 | rplaca(|args.n_p|
|000026e0| 74 72 2c 61 72 67 31 29 | 3b 0d 20 20 20 20 72 70 |tr,arg1)|;. rp|
|000026f0| 6c 61 63 64 28 61 72 67 | 73 2e 6e 5f 70 74 72 2c |lacd(arg|s.n_ptr,|
|00002700| 6e 65 77 6e 6f 64 65 28 | 4c 49 53 54 29 29 3b 0d |newnode(|LIST));.|
|00002710| 20 20 20 20 72 70 6c 61 | 63 61 28 63 64 72 28 61 | rpla|ca(cdr(a|
|00002720| 72 67 73 2e 6e 5f 70 74 | 72 29 2c 61 72 67 32 29 |rgs.n_pt|r),arg2)|
|00002730| 3b 0d 0d 20 20 20 20 2f | 2a 20 61 70 70 6c 79 20 |;.. /|* apply |
|00002740| 74 68 65 20 74 65 73 74 | 20 66 75 6e 63 74 69 6f |the test| functio|
|00002750| 6e 20 2a 2f 0d 20 20 20 | 20 76 61 6c 20 3d 20 78 |n */. | val = x|
|00002760| 6c 61 70 70 6c 79 28 66 | 63 6e 2c 61 72 67 73 2e |lapply(f|cn,args.|
|00002770| 6e 5f 70 74 72 29 3b 0d | 0d 20 20 20 20 2f 2a 20 |n_ptr);.|. /* |
|00002780| 72 65 73 74 6f 72 65 20 | 74 68 65 20 70 72 65 76 |restore |the prev|
|00002790| 69 6f 75 73 20 73 74 61 | 63 6b 20 66 72 61 6d 65 |ious sta|ck frame|
|000027a0| 20 2a 2f 0d 20 20 20 20 | 78 6c 73 74 61 63 6b 20 | */. |xlstack |
|000027b0| 3d 20 6f 6c 64 73 74 6b | 3b 0d 0d 20 20 20 20 2f |= oldstk|;.. /|
|000027c0| 2a 20 72 65 74 75 72 6e | 20 74 68 65 20 72 65 73 |* return| the res|
|000027d0| 75 6c 74 20 6f 66 20 74 | 68 65 20 74 65 73 74 20 |ult of t|he test |
|000027e0| 2a 2f 0d 20 20 20 20 72 | 65 74 75 72 6e 20 28 76 |*/. r|eturn (v|
|000027f0| 61 6c 20 21 3d 20 4e 49 | 4c 29 3b 0d 7d 0d 0d 2f |al != NI|L);.}../|
|00002800| 2a 20 78 6e 74 68 20 2d | 20 72 65 74 75 72 6e 20 |* xnth -| return |
|00002810| 74 68 65 20 6e 74 68 20 | 65 6c 65 6d 65 6e 74 20 |the nth |element |
|00002820| 6f 66 20 61 20 6c 69 73 | 74 20 2a 2f 0d 4e 4f 44 |of a lis|t */.NOD|
|00002830| 45 20 2a 78 6e 74 68 28 | 61 72 67 73 29 0d 20 20 |E *xnth(|args). |
|00002840| 4e 4f 44 45 20 2a 61 72 | 67 73 3b 0d 7b 0d 20 20 |NODE *ar|gs;.{. |
|00002850| 20 20 72 65 74 75 72 6e | 20 28 6e 74 68 28 61 72 | return| (nth(ar|
|00002860| 67 73 2c 54 52 55 45 29 | 29 3b 0d 7d 0d 0d 2f 2a |gs,TRUE)|);.}../*|
|00002870| 20 78 6e 74 68 63 64 72 | 20 2d 20 72 65 74 75 72 | xnthcdr| - retur|
|00002880| 6e 20 74 68 65 20 6e 74 | 68 20 63 64 72 20 6f 66 |n the nt|h cdr of|
|00002890| 20 61 20 6c 69 73 74 20 | 2a 2f 0d 4e 4f 44 45 20 | a list |*/.NODE |
|000028a0| 2a 78 6e 74 68 63 64 72 | 28 61 72 67 73 29 0d 20 |*xnthcdr|(args). |
|000028b0| 20 4e 4f 44 45 20 2a 61 | 72 67 73 3b 0d 7b 0d 20 | NODE *a|rgs;.{. |
|000028c0| 20 20 20 72 65 74 75 72 | 6e 20 28 6e 74 68 28 61 | retur|n (nth(a|
|000028d0| 72 67 73 2c 46 41 4c 53 | 45 29 29 3b 0d 7d 0d 0d |rgs,FALS|E));.}..|
|000028e0| 2f 2a 20 6e 74 68 20 2d | 20 69 6e 74 65 72 6e 61 |/* nth -| interna|
|000028f0| 6c 20 6e 74 68 20 66 75 | 6e 63 74 69 6f 6e 20 2a |l nth fu|nction *|
|00002900| 2f 0d 4c 4f 43 41 4c 20 | 4e 4f 44 45 20 2a 6e 74 |/.LOCAL |NODE *nt|
|00002910| 68 28 61 72 67 73 2c 63 | 61 72 66 6c 61 67 29 0d |h(args,c|arflag).|
|00002920| 20 20 4e 4f 44 45 20 2a | 61 72 67 73 3b 20 69 6e | NODE *|args; in|
|00002930| 74 20 63 61 72 66 6c 61 | 67 3b 0d 7b 0d 20 20 20 |t carfla|g;.{. |
|00002940| 20 4e 4f 44 45 20 2a 6c | 69 73 74 3b 0d 20 20 20 | NODE *l|ist;. |
|00002950| 20 69 6e 74 20 6e 3b 0d | 0d 20 20 20 20 2f 2a 20 | int n;.|. /* |
|00002960| 67 65 74 20 6e 20 61 6e | 64 20 74 68 65 20 6c 69 |get n an|d the li|
|00002970| 73 74 20 2a 2f 0d 20 20 | 20 20 69 66 20 28 28 6e |st */. | if ((n|
|00002980| 20 3d 20 78 6c 6d 61 74 | 63 68 28 49 4e 54 2c 26 | = xlmat|ch(INT,&|
|00002990| 61 72 67 73 29 2d 3e 6e | 5f 69 6e 74 29 20 3c 20 |args)->n|_int) < |
|000029a0| 30 29 0d 09 78 6c 66 61 | 69 6c 28 22 62 61 64 20 |0)..xlfa|il("bad |
|000029b0| 61 72 67 75 6d 65 6e 74 | 22 29 3b 0d 20 20 20 20 |argument|");. |
|000029c0| 69 66 20 28 28 6c 69 73 | 74 20 3d 20 78 6c 6d 61 |if ((lis|t = xlma|
|000029d0| 74 63 68 28 4c 49 53 54 | 2c 26 61 72 67 73 29 29 |tch(LIST|,&args))|
|000029e0| 20 3d 3d 20 4e 49 4c 29 | 0d 09 78 6c 66 61 69 6c | == NIL)|..xlfail|
|000029f0| 28 22 62 61 64 20 61 72 | 67 75 6d 65 6e 74 22 29 |("bad ar|gument")|
|00002a00| 3b 0d 20 20 20 20 78 6c | 6c 61 73 74 61 72 67 28 |;. xl|lastarg(|
|00002a10| 61 72 67 73 29 3b 0d 0d | 20 20 20 20 2f 2a 20 66 |args);..| /* f|
|00002a20| 69 6e 64 20 74 68 65 20 | 6e 74 68 20 65 6c 65 6d |ind the |nth elem|
|00002a30| 65 6e 74 20 2a 2f 0d 20 | 20 20 20 77 68 69 6c 65 |ent */. | while|
|00002a40| 20 28 63 6f 6e 73 70 28 | 6c 69 73 74 29 20 26 26 | (consp(|list) &&|
|00002a50| 20 6e 2d 2d 29 0d 09 6c | 69 73 74 20 3d 20 63 64 | n--)..l|ist = cd|
|00002a60| 72 28 6c 69 73 74 29 3b | 0d 0d 20 20 20 20 2f 2a |r(list);|.. /*|
|00002a70| 20 72 65 74 75 72 6e 20 | 74 68 65 20 6c 69 73 74 | return |the list|
|00002a80| 20 62 65 67 69 6e 6e 69 | 6e 67 20 61 74 20 74 68 | beginni|ng at th|
|00002a90| 65 20 6e 74 68 20 65 6c | 65 6d 65 6e 74 20 2a 2f |e nth el|ement */|
|00002aa0| 0d 20 20 20 20 72 65 74 | 75 72 6e 20 28 63 61 72 |. ret|urn (car|
|00002ab0| 66 6c 61 67 20 26 26 20 | 63 6f 6e 73 70 28 6c 69 |flag && |consp(li|
|00002ac0| 73 74 29 20 3f 20 63 61 | 72 28 6c 69 73 74 29 20 |st) ? ca|r(list) |
|00002ad0| 3a 20 6c 69 73 74 29 3b | 0d 7d 0d 0d 2f 2a 20 78 |: list);|.}../* x|
|00002ae0| 6c 65 6e 67 74 68 20 2d | 20 72 65 74 75 72 6e 20 |length -| return |
|00002af0| 74 68 65 20 6c 65 6e 67 | 74 68 20 6f 66 20 61 20 |the leng|th of a |
|00002b00| 6c 69 73 74 20 2a 2f 0d | 4e 4f 44 45 20 2a 78 6c |list */.|NODE *xl|
|00002b10| 65 6e 67 74 68 28 61 72 | 67 73 29 0d 20 20 4e 4f |ength(ar|gs). NO|
|00002b20| 44 45 20 2a 61 72 67 73 | 3b 0d 7b 0d 20 20 20 20 |DE *args|;.{. |
|00002b30| 4e 4f 44 45 20 2a 6c 69 | 73 74 2c 2a 76 61 6c 3b |NODE *li|st,*val;|
|00002b40| 0d 20 20 20 20 69 6e 74 | 20 6e 3b 0d 0d 20 20 20 |. int| n;.. |
|00002b50| 20 2f 2a 20 67 65 74 20 | 74 68 65 20 6c 69 73 74 | /* get |the list|
|00002b60| 20 2a 2f 0d 20 20 20 20 | 6c 69 73 74 20 3d 20 78 | */. |list = x|
|00002b70| 6c 6d 61 74 63 68 28 4c | 49 53 54 2c 26 61 72 67 |lmatch(L|IST,&arg|
|00002b80| 73 29 3b 0d 20 20 20 20 | 78 6c 6c 61 73 74 61 72 |s);. |xllastar|
|00002b90| 67 28 61 72 67 73 29 3b | 0d 0d 20 20 20 20 2f 2a |g(args);|.. /*|
|00002ba0| 20 66 69 6e 64 20 74 68 | 65 20 6c 65 6e 67 74 68 | find th|e length|
|00002bb0| 20 2a 2f 0d 20 20 20 20 | 66 6f 72 20 28 6e 20 3d | */. |for (n =|
|00002bc0| 20 30 3b 20 63 6f 6e 73 | 70 28 6c 69 73 74 29 3b | 0; cons|p(list);|
|00002bd0| 20 6e 2b 2b 29 0d 09 6c | 69 73 74 20 3d 20 63 64 | n++)..l|ist = cd|
|00002be0| 72 28 6c 69 73 74 29 3b | 0d 0d 20 20 20 20 2f 2a |r(list);|.. /*|
|00002bf0| 20 63 72 65 61 74 65 20 | 74 68 65 20 76 61 6c 75 | create |the valu|
|00002c00| 65 20 6e 6f 64 65 20 2a | 2f 0d 20 20 20 20 76 61 |e node *|/. va|
|00002c10| 6c 20 3d 20 6e 65 77 6e | 6f 64 65 28 49 4e 54 29 |l = newn|ode(INT)|
|00002c20| 3b 0d 20 20 20 20 76 61 | 6c 2d 3e 6e 5f 69 6e 74 |;. va|l->n_int|
|00002c30| 20 3d 20 6e 3b 0d 0d 20 | 20 20 20 2f 2a 20 72 65 | = n;.. | /* re|
|00002c40| 74 75 72 6e 20 74 68 65 | 20 6c 65 6e 67 74 68 20 |turn the| length |
|00002c50| 2a 2f 0d 20 20 20 20 72 | 65 74 75 72 6e 20 28 76 |*/. r|eturn (v|
|00002c60| 61 6c 29 3b 0d 7d 0d 0d | 2f 2a 20 78 6d 61 70 63 |al);.}..|/* xmapc|
|00002c70| 20 2d 20 62 75 69 6c 74 | 2d 69 6e 20 66 75 6e 63 | - built|-in func|
|00002c80| 74 69 6f 6e 20 27 6d 61 | 70 63 27 20 2a 2f 0d 4e |tion 'ma|pc' */.N|
|00002c90| 4f 44 45 20 2a 78 6d 61 | 70 63 28 61 72 67 73 29 |ODE *xma|pc(args)|
|00002ca0| 0d 20 20 4e 4f 44 45 20 | 2a 61 72 67 73 3b 0d 7b |. NODE |*args;.{|
|00002cb0| 0d 20 20 20 20 72 65 74 | 75 72 6e 20 28 6d 61 70 |. ret|urn (map|
|00002cc0| 28 61 72 67 73 2c 54 52 | 55 45 2c 46 41 4c 53 45 |(args,TR|UE,FALSE|
|00002cd0| 29 29 3b 0d 7d 0d 0d 2f | 2a 20 78 6d 61 70 63 61 |));.}../|* xmapca|
|00002ce0| 72 20 2d 20 62 75 69 6c | 74 2d 69 6e 20 66 75 6e |r - buil|t-in fun|
|00002cf0| 63 74 69 6f 6e 20 27 6d | 61 70 63 61 72 27 20 2a |ction 'm|apcar' *|
|00002d00| 2f 0d 4e 4f 44 45 20 2a | 78 6d 61 70 63 61 72 28 |/.NODE *|xmapcar(|
|00002d10| 61 72 67 73 29 0d 20 20 | 4e 4f 44 45 20 2a 61 72 |args). |NODE *ar|
|00002d20| 67 73 3b 0d 7b 0d 20 20 | 20 20 72 65 74 75 72 6e |gs;.{. | return|
|00002d30| 20 28 6d 61 70 28 61 72 | 67 73 2c 54 52 55 45 2c | (map(ar|gs,TRUE,|
|00002d40| 54 52 55 45 29 29 3b 0d | 7d 0d 0d 2f 2a 20 78 6d |TRUE));.|}../* xm|
|00002d50| 61 70 6c 20 2d 20 62 75 | 69 6c 74 2d 69 6e 20 66 |apl - bu|ilt-in f|
|00002d60| 75 6e 63 74 69 6f 6e 20 | 27 6d 61 70 6c 27 20 2a |unction |'mapl' *|
|00002d70| 2f 0d 4e 4f 44 45 20 2a | 78 6d 61 70 6c 28 61 72 |/.NODE *|xmapl(ar|
|00002d80| 67 73 29 0d 20 20 4e 4f | 44 45 20 2a 61 72 67 73 |gs). NO|DE *args|
|00002d90| 3b 0d 7b 0d 20 20 20 20 | 72 65 74 75 72 6e 20 28 |;.{. |return (|
|00002da0| 6d 61 70 28 61 72 67 73 | 2c 46 41 4c 53 45 2c 46 |map(args|,FALSE,F|
|00002db0| 41 4c 53 45 29 29 3b 0d | 7d 0d 0d 2f 2a 20 78 6d |ALSE));.|}../* xm|
|00002dc0| 61 70 6c 69 73 74 20 2d | 20 62 75 69 6c 74 2d 69 |aplist -| built-i|
|00002dd0| 6e 20 66 75 6e 63 74 69 | 6f 6e 20 27 6d 61 70 6c |n functi|on 'mapl|
|00002de0| 69 73 74 27 20 2a 2f 0d | 4e 4f 44 45 20 2a 78 6d |ist' */.|NODE *xm|
|00002df0| 61 70 6c 69 73 74 28 61 | 72 67 73 29 0d 20 20 4e |aplist(a|rgs). N|
|00002e00| 4f 44 45 20 2a 61 72 67 | 73 3b 0d 7b 0d 20 20 20 |ODE *arg|s;.{. |
|00002e10| 20 72 65 74 75 72 6e 20 | 28 6d 61 70 28 61 72 67 | return |(map(arg|
|00002e20| 73 2c 46 41 4c 53 45 2c | 54 52 55 45 29 29 3b 0d |s,FALSE,|TRUE));.|
|00002e30| 7d 0d 0d 2f 2a 20 6d 61 | 70 20 2d 20 69 6e 74 65 |}../* ma|p - inte|
|00002e40| 72 6e 61 6c 20 6d 61 70 | 70 69 6e 67 20 66 75 6e |rnal map|ping fun|
|00002e50| 63 74 69 6f 6e 20 2a 2f | 0d 4c 4f 43 41 4c 20 4e |ction */|.LOCAL N|
|00002e60| 4f 44 45 20 2a 6d 61 70 | 28 61 72 67 73 2c 63 61 |ODE *map|(args,ca|
|00002e70| 72 66 6c 61 67 2c 76 61 | 6c 66 6c 61 67 29 0d 20 |rflag,va|lflag). |
|00002e80| 20 4e 4f 44 45 20 2a 61 | 72 67 73 3b 20 69 6e 74 | NODE *a|rgs; int|
|00002e90| 20 63 61 72 66 6c 61 67 | 2c 76 61 6c 66 6c 61 67 | carflag|,valflag|
|00002ea0| 3b 0d 7b 0d 20 20 20 20 | 4e 4f 44 45 20 2a 6f 6c |;.{. |NODE *ol|
|00002eb0| 64 73 74 6b 2c 66 63 6e | 2c 6c 69 73 74 73 2c 61 |dstk,fcn|,lists,a|
|00002ec0| 72 67 6c 69 73 74 2c 76 | 61 6c 2c 2a 6c 61 73 74 |rglist,v|al,*last|
|00002ed0| 2c 2a 70 2c 2a 78 2c 2a | 79 3b 0d 0d 20 20 20 20 |,*p,*x,*|y;.. |
|00002ee0| 2f 2a 20 63 72 65 61 74 | 65 20 61 20 6e 65 77 20 |/* creat|e a new |
|00002ef0| 73 74 61 63 6b 20 66 72 | 61 6d 65 20 2a 2f 0d 20 |stack fr|ame */. |
|00002f00| 20 20 20 6f 6c 64 73 74 | 6b 20 3d 20 78 6c 73 61 | oldst|k = xlsa|
|00002f10| 76 65 28 26 66 63 6e 2c | 26 6c 69 73 74 73 2c 26 |ve(&fcn,|&lists,&|
|00002f20| 61 72 67 6c 69 73 74 2c | 26 76 61 6c 2c 4e 55 4c |arglist,|&val,NUL|
|00002f30| 4c 29 3b 0d 0d 20 20 20 | 20 2f 2a 20 67 65 74 20 |L);.. | /* get |
|00002f40| 74 68 65 20 66 75 6e 63 | 74 69 6f 6e 20 74 6f 20 |the func|tion to |
|00002f50| 61 70 70 6c 79 20 61 6e | 64 20 74 68 65 20 66 69 |apply an|d the fi|
|00002f60| 72 73 74 20 6c 69 73 74 | 20 2a 2f 0d 20 20 20 20 |rst list| */. |
|00002f70| 66 63 6e 2e 6e 5f 70 74 | 72 20 3d 20 78 6c 61 72 |fcn.n_pt|r = xlar|
|00002f80| 67 28 26 61 72 67 73 29 | 3b 0d 20 20 20 20 6c 69 |g(&args)|;. li|
|00002f90| 73 74 73 2e 6e 5f 70 74 | 72 20 3d 20 78 6c 6d 61 |sts.n_pt|r = xlma|
|00002fa0| 74 63 68 28 4c 49 53 54 | 2c 26 61 72 67 73 29 3b |tch(LIST|,&args);|
|00002fb0| 0d 0d 20 20 20 20 2f 2a | 20 73 61 76 65 20 74 68 |.. /*| save th|
|00002fc0| 65 20 66 69 72 73 74 20 | 6c 69 73 74 20 69 66 20 |e first |list if |
|00002fd0| 6e 6f 74 20 73 61 76 69 | 6e 67 20 66 75 6e 63 74 |not savi|ng funct|
|00002fe0| 69 6f 6e 20 76 61 6c 75 | 65 73 20 2a 2f 0d 20 20 |ion valu|es */. |
|00002ff0| 20 20 69 66 20 28 21 76 | 61 6c 66 6c 61 67 29 0d | if (!v|alflag).|
|00003000| 09 76 61 6c 2e 6e 5f 70 | 74 72 20 3d 20 6c 69 73 |.val.n_p|tr = lis|
|00003010| 74 73 2e 6e 5f 70 74 72 | 3b 0d 0d 20 20 20 20 2f |ts.n_ptr|;.. /|
|00003020| 2a 20 73 65 74 20 75 70 | 20 74 68 65 20 6c 69 73 |* set up| the lis|
|00003030| 74 20 6f 66 20 61 72 67 | 75 6d 65 6e 74 20 6c 69 |t of arg|ument li|
|00003040| 73 74 73 20 2a 2f 0d 20 | 20 20 20 70 20 3d 20 6e |sts */. | p = n|
|00003050| 65 77 6e 6f 64 65 28 4c | 49 53 54 29 3b 0d 20 20 |ewnode(L|IST);. |
|00003060| 20 20 72 70 6c 61 63 61 | 28 70 2c 6c 69 73 74 73 | rplaca|(p,lists|
|00003070| 2e 6e 5f 70 74 72 29 3b | 0d 20 20 20 20 6c 69 73 |.n_ptr);|. lis|
|00003080| 74 73 2e 6e 5f 70 74 72 | 20 3d 20 70 3b 0d 0d 20 |ts.n_ptr| = p;.. |
|00003090| 20 20 20 2f 2a 20 67 65 | 74 20 74 68 65 20 72 65 | /* ge|t the re|
|000030a0| 6d 61 69 6e 69 6e 67 20 | 61 72 67 75 6d 65 6e 74 |maining |argument|
|000030b0| 20 6c 69 73 74 73 20 2a | 2f 0d 20 20 20 20 77 68 | lists *|/. wh|
|000030c0| 69 6c 65 20 28 61 72 67 | 73 29 20 7b 0d 09 70 20 |ile (arg|s) {..p |
|000030d0| 3d 20 6e 65 77 6e 6f 64 | 65 28 4c 49 53 54 29 3b |= newnod|e(LIST);|
|000030e0| 0d 09 72 70 6c 61 63 64 | 28 70 2c 6c 69 73 74 73 |..rplacd|(p,lists|
|000030f0| 2e 6e 5f 70 74 72 29 3b | 0d 09 6c 69 73 74 73 2e |.n_ptr);|..lists.|
|00003100| 6e 5f 70 74 72 20 3d 20 | 70 3b 0d 09 72 70 6c 61 |n_ptr = |p;..rpla|
|00003110| 63 61 28 70 2c 78 6c 6d | 61 74 63 68 28 4c 49 53 |ca(p,xlm|atch(LIS|
|00003120| 54 2c 26 61 72 67 73 29 | 29 3b 0d 20 20 20 20 7d |T,&args)|);. }|
|00003130| 0d 0d 20 20 20 20 2f 2a | 20 69 66 20 74 68 65 20 |.. /*| if the |
|00003140| 66 75 6e 63 74 69 6f 6e | 20 69 73 20 61 20 73 79 |function| is a sy|
|00003150| 6d 62 6f 6c 2c 20 67 65 | 74 20 69 74 73 20 76 61 |mbol, ge|t its va|
|00003160| 6c 75 65 20 2a 2f 0d 20 | 20 20 20 69 66 20 28 73 |lue */. | if (s|
|00003170| 79 6d 62 6f 6c 70 28 66 | 63 6e 2e 6e 5f 70 74 72 |ymbolp(f|cn.n_ptr|
|00003180| 29 29 0d 09 66 63 6e 2e | 6e 5f 70 74 72 20 3d 20 |))..fcn.|n_ptr = |
|00003190| 78 6c 65 76 61 6c 28 66 | 63 6e 2e 6e 5f 70 74 72 |xleval(f|cn.n_ptr|
|000031a0| 29 3b 0d 0d 20 20 20 20 | 2f 2a 20 6c 6f 6f 70 20 |);.. |/* loop |
|000031b0| 74 68 72 6f 75 67 68 20 | 65 61 63 68 20 6f 66 20 |through |each of |
|000031c0| 74 68 65 20 61 72 67 75 | 6d 65 6e 74 20 6c 69 73 |the argu|ment lis|
|000031d0| 74 73 20 2a 2f 0d 20 20 | 20 20 66 6f 72 20 28 3b |ts */. | for (;|
|000031e0| 3b 29 20 7b 0d 0d 09 2f | 2a 20 62 75 69 6c 64 20 |;) {.../|* build |
|000031f0| 61 6e 20 61 72 67 75 6d | 65 6e 74 20 6c 69 73 74 |an argum|ent list|
|00003200| 20 66 72 6f 6d 20 74 68 | 65 20 73 75 62 6c 69 73 | from th|e sublis|
|00003210| 74 73 20 2a 2f 0d 09 61 | 72 67 6c 69 73 74 2e 6e |ts */..a|rglist.n|
|00003220| 5f 70 74 72 20 3d 20 4e | 49 4c 3b 0d 09 66 6f 72 |_ptr = N|IL;..for|
|00003230| 20 28 78 20 3d 20 6c 69 | 73 74 73 2e 6e 5f 70 74 | (x = li|sts.n_pt|
|00003240| 72 3b 20 78 20 26 26 20 | 28 79 20 3d 20 63 61 72 |r; x && |(y = car|
|00003250| 28 78 29 29 20 26 26 20 | 63 6f 6e 73 70 28 79 29 |(x)) && |consp(y)|
|00003260| 3b 20 78 20 3d 20 63 64 | 72 28 78 29 29 20 7b 0d |; x = cd|r(x)) {.|
|00003270| 09 20 20 20 20 70 20 3d | 20 6e 65 77 6e 6f 64 65 |. p =| newnode|
|00003280| 28 4c 49 53 54 29 3b 0d | 09 20 20 20 20 72 70 6c |(LIST);.|. rpl|
|00003290| 61 63 64 28 70 2c 61 72 | 67 6c 69 73 74 2e 6e 5f |acd(p,ar|glist.n_|
|000032a0| 70 74 72 29 3b 0d 09 20 | 20 20 20 61 72 67 6c 69 |ptr);.. | argli|
|000032b0| 73 74 2e 6e 5f 70 74 72 | 20 3d 20 70 3b 0d 09 20 |st.n_ptr| = p;.. |
|000032c0| 20 20 20 72 70 6c 61 63 | 61 28 70 2c 63 61 72 66 | rplac|a(p,carf|
|000032d0| 6c 61 67 20 3f 20 63 61 | 72 28 79 29 20 3a 20 79 |lag ? ca|r(y) : y|
|000032e0| 29 3b 0d 09 20 20 20 20 | 72 70 6c 61 63 61 28 78 |);.. |rplaca(x|
|000032f0| 2c 63 64 72 28 79 29 29 | 3b 0d 09 7d 0d 0d 09 2f |,cdr(y))|;..}.../|
|00003300| 2a 20 71 75 69 74 20 69 | 66 20 61 6e 79 20 6f 66 |* quit i|f any of|
|00003310| 20 74 68 65 20 6c 69 73 | 74 73 20 77 65 72 65 20 | the lis|ts were |
|00003320| 65 6d 70 74 79 20 2a 2f | 0d 09 69 66 20 28 78 29 |empty */|..if (x)|
|00003330| 20 62 72 65 61 6b 3b 0d | 0d 09 2f 2a 20 61 70 70 | break;.|../* app|
|00003340| 6c 79 20 74 68 65 20 66 | 75 6e 63 74 69 6f 6e 20 |ly the f|unction |
|00003350| 74 6f 20 74 68 65 20 61 | 72 67 75 6d 65 6e 74 73 |to the a|rguments|
|00003360| 20 2a 2f 0d 09 69 66 20 | 28 76 61 6c 66 6c 61 67 | */..if |(valflag|
|00003370| 29 20 7b 0d 09 20 20 20 | 20 70 20 3d 20 6e 65 77 |) {.. | p = new|
|00003380| 6e 6f 64 65 28 4c 49 53 | 54 29 3b 0d 09 20 20 20 |node(LIS|T);.. |
|00003390| 20 69 66 20 28 76 61 6c | 2e 6e 5f 70 74 72 29 20 | if (val|.n_ptr) |
|000033a0| 72 70 6c 61 63 64 28 6c | 61 73 74 2c 70 29 3b 0d |rplacd(l|ast,p);.|
|000033b0| 09 20 20 20 20 65 6c 73 | 65 20 76 61 6c 2e 6e 5f |. els|e val.n_|
|000033c0| 70 74 72 20 3d 20 70 3b | 0d 09 20 20 20 20 72 70 |ptr = p;|.. rp|
|000033d0| 6c 61 63 61 28 70 2c 78 | 6c 61 70 70 6c 79 28 66 |laca(p,x|lapply(f|
|000033e0| 63 6e 2e 6e 5f 70 74 72 | 2c 61 72 67 6c 69 73 74 |cn.n_ptr|,arglist|
|000033f0| 2e 6e 5f 70 74 72 29 29 | 3b 0d 09 20 20 20 20 6c |.n_ptr))|;.. l|
|00003400| 61 73 74 20 3d 20 70 3b | 0d 09 7d 0d 09 65 6c 73 |ast = p;|..}..els|
|00003410| 65 0d 09 20 20 20 20 78 | 6c 61 70 70 6c 79 28 66 |e.. x|lapply(f|
|00003420| 63 6e 2e 6e 5f 70 74 72 | 2c 61 72 67 6c 69 73 74 |cn.n_ptr|,arglist|
|00003430| 2e 6e 5f 70 74 72 29 3b | 0d 20 20 20 20 7d 0d 0d |.n_ptr);|. }..|
|00003440| 20 20 20 20 2f 2a 20 72 | 65 73 74 6f 72 65 20 74 | /* r|estore t|
|00003450| 68 65 20 70 72 65 76 69 | 6f 75 73 20 73 74 61 63 |he previ|ous stac|
|00003460| 6b 20 66 72 61 6d 65 20 | 2a 2f 0d 20 20 20 20 78 |k frame |*/. x|
|00003470| 6c 73 74 61 63 6b 20 3d | 20 6f 6c 64 73 74 6b 3b |lstack =| oldstk;|
|00003480| 0d 0d 20 20 20 20 2f 2a | 20 72 65 74 75 72 6e 20 |.. /*| return |
|00003490| 74 68 65 20 6c 61 73 74 | 20 74 65 73 74 20 65 78 |the last| test ex|
|000034a0| 70 72 65 73 73 69 6f 6e | 20 76 61 6c 75 65 20 2a |pression| value *|
|000034b0| 2f 0d 20 20 20 20 72 65 | 74 75 72 6e 20 28 76 61 |/. re|turn (va|
|000034c0| 6c 2e 6e 5f 70 74 72 29 | 3b 0d 7d 0d 0d 2f 2a 20 |l.n_ptr)|;.}../* |
|000034d0| 78 72 70 6c 63 61 20 2d | 20 72 65 70 6c 61 63 65 |xrplca -| replace|
|000034e0| 20 74 68 65 20 63 61 72 | 20 6f 66 20 61 20 6c 69 | the car| of a li|
|000034f0| 73 74 20 6e 6f 64 65 20 | 2a 2f 0d 4e 4f 44 45 20 |st node |*/.NODE |
|00003500| 2a 78 72 70 6c 63 61 28 | 61 72 67 73 29 0d 20 20 |*xrplca(|args). |
|00003510| 4e 4f 44 45 20 2a 61 72 | 67 73 3b 0d 7b 0d 20 20 |NODE *ar|gs;.{. |
|00003520| 20 20 4e 4f 44 45 20 2a | 6c 69 73 74 2c 2a 6e 65 | NODE *|list,*ne|
|00003530| 77 63 61 72 3b 0d 0d 20 | 20 20 20 2f 2a 20 67 65 |wcar;.. | /* ge|
|00003540| 74 20 74 68 65 20 6c 69 | 73 74 20 61 6e 64 20 74 |t the li|st and t|
|00003550| 68 65 20 6e 65 77 20 63 | 61 72 20 2a 2f 0d 20 20 |he new c|ar */. |
|00003560| 20 20 69 66 20 28 28 6c | 69 73 74 20 3d 20 78 6c | if ((l|ist = xl|
|00003570| 6d 61 74 63 68 28 4c 49 | 53 54 2c 26 61 72 67 73 |match(LI|ST,&args|
|00003580| 29 29 20 3d 3d 20 4e 49 | 4c 29 0d 09 78 6c 66 61 |)) == NI|L)..xlfa|
|00003590| 69 6c 28 22 62 61 64 20 | 61 72 67 75 6d 65 6e 74 |il("bad |argument|
|000035a0| 22 29 3b 0d 20 20 20 20 | 6e 65 77 63 61 72 20 3d |");. |newcar =|
|000035b0| 20 78 6c 61 72 67 28 26 | 61 72 67 73 29 3b 0d 20 | xlarg(&|args);. |
|000035c0| 20 20 20 78 6c 6c 61 73 | 74 61 72 67 28 61 72 67 | xllas|targ(arg|
|000035d0| 73 29 3b 0d 0d 20 20 20 | 20 2f 2a 20 72 65 70 6c |s);.. | /* repl|
|000035e0| 61 63 65 20 74 68 65 20 | 63 61 72 20 2a 2f 0d 20 |ace the |car */. |
|000035f0| 20 20 20 72 70 6c 61 63 | 61 28 6c 69 73 74 2c 6e | rplac|a(list,n|
|00003600| 65 77 63 61 72 29 3b 0d | 0d 20 20 20 20 2f 2a 20 |ewcar);.|. /* |
|00003610| 72 65 74 75 72 6e 20 74 | 68 65 20 6c 69 73 74 20 |return t|he list |
|00003620| 6e 6f 64 65 20 74 68 61 | 74 20 77 61 73 20 6d 6f |node tha|t was mo|
|00003630| 64 69 66 69 65 64 20 2a | 2f 0d 20 20 20 20 72 65 |dified *|/. re|
|00003640| 74 75 72 6e 20 28 6c 69 | 73 74 29 3b 0d 7d 0d 0d |turn (li|st);.}..|
|00003650| 2f 2a 20 78 72 70 6c 63 | 64 20 2d 20 72 65 70 6c |/* xrplc|d - repl|
|00003660| 61 63 65 20 74 68 65 20 | 63 64 72 20 6f 66 20 61 |ace the |cdr of a|
|00003670| 20 6c 69 73 74 20 6e 6f | 64 65 20 2a 2f 0d 4e 4f | list no|de */.NO|
|00003680| 44 45 20 2a 78 72 70 6c | 63 64 28 61 72 67 73 29 |DE *xrpl|cd(args)|
|00003690| 0d 20 20 4e 4f 44 45 20 | 2a 61 72 67 73 3b 0d 7b |. NODE |*args;.{|
|000036a0| 0d 20 20 20 20 4e 4f 44 | 45 20 2a 6c 69 73 74 2c |. NOD|E *list,|
|000036b0| 2a 6e 65 77 63 64 72 3b | 0d 0d 20 20 20 20 2f 2a |*newcdr;|.. /*|
|000036c0| 20 67 65 74 20 74 68 65 | 20 6c 69 73 74 20 61 6e | get the| list an|
|000036d0| 64 20 74 68 65 20 6e 65 | 77 20 63 64 72 20 2a 2f |d the ne|w cdr */|
|000036e0| 0d 20 20 20 20 69 66 20 | 28 28 6c 69 73 74 20 3d |. if |((list =|
|000036f0| 20 78 6c 6d 61 74 63 68 | 28 4c 49 53 54 2c 26 61 | xlmatch|(LIST,&a|
|00003700| 72 67 73 29 29 20 3d 3d | 20 4e 49 4c 29 0d 09 78 |rgs)) ==| NIL)..x|
|00003710| 6c 66 61 69 6c 28 22 62 | 61 64 20 61 72 67 75 6d |lfail("b|ad argum|
|00003720| 65 6e 74 22 29 3b 0d 20 | 20 20 20 6e 65 77 63 64 |ent");. | newcd|
|00003730| 72 20 3d 20 78 6c 61 72 | 67 28 26 61 72 67 73 29 |r = xlar|g(&args)|
|00003740| 3b 0d 20 20 20 20 78 6c | 6c 61 73 74 61 72 67 28 |;. xl|lastarg(|
|00003750| 61 72 67 73 29 3b 0d 0d | 20 20 20 20 2f 2a 20 72 |args);..| /* r|
|00003760| 65 70 6c 61 63 65 20 74 | 68 65 20 63 64 72 20 2a |eplace t|he cdr *|
|00003770| 2f 0d 20 20 20 20 72 70 | 6c 61 63 64 28 6c 69 73 |/. rp|lacd(lis|
|00003780| 74 2c 6e 65 77 63 64 72 | 29 3b 0d 0d 20 20 20 20 |t,newcdr|);.. |
|00003790| 2f 2a 20 72 65 74 75 72 | 6e 20 74 68 65 20 6c 69 |/* retur|n the li|
|000037a0| 73 74 20 6e 6f 64 65 20 | 74 68 61 74 20 77 61 73 |st node |that was|
|000037b0| 20 6d 6f 64 69 66 69 65 | 64 20 2a 2f 0d 20 20 20 | modifie|d */. |
|000037c0| 20 72 65 74 75 72 6e 20 | 28 6c 69 73 74 29 3b 0d | return |(list);.|
|000037d0| 7d 0d 0d 2f 2a 20 78 6e | 63 6f 6e 63 20 2d 20 64 |}../* xn|conc - d|
|000037e0| 65 73 74 72 75 63 74 69 | 76 65 6c 79 20 61 70 70 |estructi|vely app|
|000037f0| 65 6e 64 20 6c 69 73 74 | 73 20 2a 2f 0d 4e 4f 44 |end list|s */.NOD|
|00003800| 45 20 2a 78 6e 63 6f 6e | 63 28 61 72 67 73 29 0d |E *xncon|c(args).|
|00003810| 20 20 4e 4f 44 45 20 2a | 61 72 67 73 3b 0d 7b 0d | NODE *|args;.{.|
|00003820| 20 20 20 20 4e 4f 44 45 | 20 2a 6c 69 73 74 2c 2a | NODE| *list,*|
|00003830| 6c 61 73 74 2c 2a 76 61 | 6c 3b 0d 0d 20 20 20 20 |last,*va|l;.. |
|00003840| 2f 2a 20 63 6f 6e 63 61 | 74 65 6e 61 74 65 20 65 |/* conca|tenate e|
|00003850| 61 63 68 20 61 72 67 75 | 6d 65 6e 74 20 2a 2f 0d |ach argu|ment */.|
|00003860| 20 20 20 20 66 6f 72 20 | 28 76 61 6c 20 3d 20 4e | for |(val = N|
|00003870| 49 4c 3b 20 61 72 67 73 | 3b 20 29 20 7b 0d 0d 09 |IL; args|; ) {...|
|00003880| 2f 2a 20 63 6f 6e 63 61 | 74 65 6e 61 74 65 20 74 |/* conca|tenate t|
|00003890| 68 69 73 20 6c 69 73 74 | 20 2a 2f 0d 09 69 66 20 |his list| */..if |
|000038a0| 28 6c 69 73 74 20 3d 20 | 78 6c 6d 61 74 63 68 28 |(list = |xlmatch(|
|000038b0| 4c 49 53 54 2c 26 61 72 | 67 73 29 29 20 7b 0d 0d |LIST,&ar|gs)) {..|
|000038c0| 09 20 20 20 20 2f 2a 20 | 63 68 65 63 6b 20 66 6f |. /* |check fo|
|000038d0| 72 20 74 68 69 73 20 62 | 65 69 6e 67 20 74 68 65 |r this b|eing the|
|000038e0| 20 66 69 72 73 74 20 6e | 6f 6e 2d 65 6d 70 74 79 | first n|on-empty|
|000038f0| 20 6c 69 73 74 20 2a 2f | 0d 09 20 20 20 20 69 66 | list */|.. if|
|00003900| 20 28 76 61 6c 29 0d 09 | 09 72 70 6c 61 63 64 28 | (val)..|.rplacd(|
|00003910| 6c 61 73 74 2c 6c 69 73 | 74 29 3b 0d 09 20 20 20 |last,lis|t);.. |
|00003920| 20 65 6c 73 65 0d 09 09 | 76 61 6c 20 3d 20 6c 69 | else...|val = li|
|00003930| 73 74 3b 0d 0d 09 20 20 | 20 20 2f 2a 20 66 69 6e |st;... | /* fin|
|00003940| 64 20 74 68 65 20 65 6e | 64 20 6f 66 20 74 68 65 |d the en|d of the|
|00003950| 20 6c 69 73 74 20 2a 2f | 0d 09 20 20 20 20 77 68 | list */|.. wh|
|00003960| 69 6c 65 20 28 63 6f 6e | 73 70 28 63 64 72 28 6c |ile (con|sp(cdr(l|
|00003970| 69 73 74 29 29 29 0d 09 | 09 6c 69 73 74 20 3d 20 |ist)))..|.list = |
|00003980| 63 64 72 28 6c 69 73 74 | 29 3b 0d 0d 09 20 20 20 |cdr(list|);... |
|00003990| 20 2f 2a 20 73 61 76 65 | 20 74 68 65 20 6e 65 77 | /* save| the new|
|000039a0| 20 6c 61 73 74 20 65 6c | 65 6d 65 6e 74 20 2a 2f | last el|ement */|
|000039b0| 0d 09 20 20 20 20 6c 61 | 73 74 20 3d 20 6c 69 73 |.. la|st = lis|
|000039c0| 74 3b 0d 09 7d 0d 20 20 | 20 20 7d 0d 0d 20 20 20 |t;..}. | }.. |
|000039d0| 20 2f 2a 20 72 65 74 75 | 72 6e 20 74 68 65 20 6c | /* retu|rn the l|
|000039e0| 69 73 74 20 2a 2f 0d 20 | 20 20 20 72 65 74 75 72 |ist */. | retur|
|000039f0| 6e 20 28 76 61 6c 29 3b | 0d 7d 0d 0d 2f 2a 20 78 |n (val);|.}../* x|
|00003a00| 64 65 6c 65 74 65 20 2d | 20 62 75 69 6c 74 2d 69 |delete -| built-i|
|00003a10| 6e 20 66 75 6e 63 74 69 | 6f 6e 20 27 64 65 6c 65 |n functi|on 'dele|
|00003a20| 74 65 27 20 2a 2f 0d 4e | 4f 44 45 20 2a 78 64 65 |te' */.N|ODE *xde|
|00003a30| 6c 65 74 65 28 61 72 67 | 73 29 0d 20 20 4e 4f 44 |lete(arg|s). NOD|
|00003a40| 45 20 2a 61 72 67 73 3b | 0d 7b 0d 20 20 20 20 4e |E *args;|.{. N|
|00003a50| 4f 44 45 20 2a 6f 6c 64 | 73 74 6b 2c 78 2c 6c 69 |ODE *old|stk,x,li|
|00003a60| 73 74 2c 66 63 6e 2c 2a | 6c 61 73 74 2c 2a 76 61 |st,fcn,*|last,*va|
|00003a70| 6c 3b 0d 20 20 20 20 69 | 6e 74 20 74 72 65 73 75 |l;. i|nt tresu|
|00003a80| 6c 74 3b 0d 0d 20 20 20 | 20 2f 2a 20 63 72 65 61 |lt;.. | /* crea|
|00003a90| 74 65 20 61 20 6e 65 77 | 20 73 74 61 63 6b 20 66 |te a new| stack f|
|00003aa0| 72 61 6d 65 20 2a 2f 0d | 20 20 20 20 6f 6c 64 73 |rame */.| olds|
|00003ab0| 74 6b 20 3d 20 78 6c 73 | 61 76 65 28 26 78 2c 26 |tk = xls|ave(&x,&|
|00003ac0| 6c 69 73 74 2c 26 66 63 | 6e 2c 4e 55 4c 4c 29 3b |list,&fc|n,NULL);|
|00003ad0| 0d 0d 20 20 20 20 2f 2a | 20 67 65 74 20 74 68 65 |.. /*| get the|
|00003ae0| 20 65 78 70 72 65 73 73 | 69 6f 6e 20 74 6f 20 64 | express|ion to d|
|00003af0| 65 6c 65 74 65 20 61 6e | 64 20 74 68 65 20 6c 69 |elete an|d the li|
|00003b00| 73 74 20 2a 2f 0d 20 20 | 20 20 78 2e 6e 5f 70 74 |st */. | x.n_pt|
|00003b10| 72 20 3d 20 78 6c 61 72 | 67 28 26 61 72 67 73 29 |r = xlar|g(&args)|
|00003b20| 3b 0d 20 20 20 20 6c 69 | 73 74 2e 6e 5f 70 74 72 |;. li|st.n_ptr|
|00003b30| 20 3d 20 78 6c 6d 61 74 | 63 68 28 4c 49 53 54 2c | = xlmat|ch(LIST,|
|00003b40| 26 61 72 67 73 29 3b 0d | 20 20 20 20 78 6c 74 65 |&args);.| xlte|
|00003b50| 73 74 28 26 66 63 6e 2e | 6e 5f 70 74 72 2c 26 74 |st(&fcn.|n_ptr,&t|
|00003b60| 72 65 73 75 6c 74 2c 26 | 61 72 67 73 29 3b 0d 20 |result,&|args);. |
|00003b70| 20 20 20 78 6c 6c 61 73 | 74 61 72 67 28 61 72 67 | xllas|targ(arg|
|00003b80| 73 29 3b 0d 0d 20 20 20 | 20 2f 2a 20 64 65 6c 65 |s);.. | /* dele|
|00003b90| 74 65 20 6c 65 61 64 69 | 6e 67 20 6d 61 74 63 68 |te leadi|ng match|
|00003ba0| 65 73 20 2a 2f 0d 20 20 | 20 20 77 68 69 6c 65 20 |es */. | while |
|00003bb0| 28 63 6f 6e 73 70 28 6c | 69 73 74 2e 6e 5f 70 74 |(consp(l|ist.n_pt|
|00003bc0| 72 29 29 20 7b 0d 09 69 | 66 20 28 64 6f 74 65 73 |r)) {..i|f (dotes|
|00003bd0| 74 28 78 2e 6e 5f 70 74 | 72 2c 63 61 72 28 6c 69 |t(x.n_pt|r,car(li|
|00003be0| 73 74 2e 6e 5f 70 74 72 | 29 2c 66 63 6e 2e 6e 5f |st.n_ptr|),fcn.n_|
|00003bf0| 70 74 72 29 20 21 3d 20 | 74 72 65 73 75 6c 74 29 |ptr) != |tresult)|
|00003c00| 0d 09 20 20 20 20 62 72 | 65 61 6b 3b 0d 09 6c 69 |.. br|eak;..li|
|00003c10| 73 74 2e 6e 5f 70 74 72 | 20 3d 20 63 64 72 28 6c |st.n_ptr| = cdr(l|
|00003c20| 69 73 74 2e 6e 5f 70 74 | 72 29 3b 0d 20 20 20 20 |ist.n_pt|r);. |
|00003c30| 7d 0d 20 20 20 20 76 61 | 6c 20 3d 20 6c 61 73 74 |}. va|l = last|
|00003c40| 20 3d 20 6c 69 73 74 2e | 6e 5f 70 74 72 3b 0d 0d | = list.|n_ptr;..|
|00003c50| 20 20 20 20 2f 2a 20 64 | 65 6c 65 74 65 20 65 6d | /* d|elete em|
|00003c60| 62 65 64 64 65 64 20 6d | 61 74 63 68 65 73 20 2a |bedded m|atches *|
|00003c70| 2f 0d 20 20 20 20 69 66 | 20 28 63 6f 6e 73 70 28 |/. if| (consp(|
|00003c80| 6c 69 73 74 2e 6e 5f 70 | 74 72 29 29 20 7b 0d 0d |list.n_p|tr)) {..|
|00003c90| 09 2f 2a 20 73 6b 69 70 | 20 74 68 65 20 66 69 72 |./* skip| the fir|
|00003ca0| 73 74 20 6e 6f 6e 2d 6d | 61 74 63 68 69 6e 67 20 |st non-m|atching |
|00003cb0| 65 6c 65 6d 65 6e 74 20 | 2a 2f 0d 09 6c 69 73 74 |element |*/..list|
|00003cc0| 2e 6e 5f 70 74 72 20 3d | 20 63 64 72 28 6c 69 73 |.n_ptr =| cdr(lis|
|00003cd0| 74 2e 6e 5f 70 74 72 29 | 3b 0d 0d 09 2f 2a 20 6c |t.n_ptr)|;.../* l|
|00003ce0| 6f 6f 6b 20 66 6f 72 20 | 65 6d 62 65 64 64 65 64 |ook for |embedded|
|00003cf0| 20 6d 61 74 63 68 65 73 | 20 2a 2f 0d 09 77 68 69 | matches| */..whi|
|00003d00| 6c 65 20 28 63 6f 6e 73 | 70 28 6c 69 73 74 2e 6e |le (cons|p(list.n|
|00003d10| 5f 70 74 72 29 29 20 7b | 0d 0d 09 20 20 20 20 2f |_ptr)) {|... /|
|00003d20| 2a 20 63 68 65 63 6b 20 | 74 6f 20 73 65 65 20 69 |* check |to see i|
|00003d30| 66 20 74 68 69 73 20 65 | 6c 65 6d 65 6e 74 20 73 |f this e|lement s|
|00003d40| 68 6f 75 6c 64 20 62 65 | 20 64 65 6c 65 74 65 64 |hould be| deleted|
|00003d50| 20 2a 2f 0d 09 20 20 20 | 20 69 66 20 28 64 6f 74 | */.. | if (dot|
|00003d60| 65 73 74 28 78 2e 6e 5f | 70 74 72 2c 63 61 72 28 |est(x.n_|ptr,car(|
|00003d70| 6c 69 73 74 2e 6e 5f 70 | 74 72 29 2c 66 63 6e 2e |list.n_p|tr),fcn.|
|00003d80| 6e 5f 70 74 72 29 20 3d | 3d 20 74 72 65 73 75 6c |n_ptr) =|= tresul|
|00003d90| 74 29 0d 09 09 72 70 6c | 61 63 64 28 6c 61 73 74 |t)...rpl|acd(last|
|00003da0| 2c 63 64 72 28 6c 69 73 | 74 2e 6e 5f 70 74 72 29 |,cdr(lis|t.n_ptr)|
|00003db0| 29 3b 0d 09 20 20 20 20 | 65 6c 73 65 0d 09 09 6c |);.. |else...l|
|00003dc0| 61 73 74 20 3d 20 6c 69 | 73 74 2e 6e 5f 70 74 72 |ast = li|st.n_ptr|
|00003dd0| 3b 0d 0d 09 20 20 20 20 | 2f 2a 20 6d 6f 76 65 20 |;... |/* move |
|00003de0| 74 6f 20 74 68 65 20 6e | 65 78 74 20 65 6c 65 6d |to the n|ext elem|
|00003df0| 65 6e 74 20 2a 2f 0d 09 | 20 20 20 20 6c 69 73 74 |ent */..| list|
|00003e00| 2e 6e 5f 70 74 72 20 3d | 20 63 64 72 28 6c 69 73 |.n_ptr =| cdr(lis|
|00003e10| 74 2e 6e 5f 70 74 72 29 | 3b 0d 20 09 7d 0d 20 20 |t.n_ptr)|;. .}. |
|00003e20| 20 20 7d 0d 0d 20 20 20 | 20 2f 2a 20 72 65 73 74 | }.. | /* rest|
|00003e30| 6f 72 65 20 74 68 65 20 | 70 72 65 76 69 6f 75 73 |ore the |previous|
|00003e40| 20 73 74 61 63 6b 20 66 | 72 61 6d 65 20 2a 2f 0d | stack f|rame */.|
|00003e50| 20 20 20 20 78 6c 73 74 | 61 63 6b 20 3d 20 6f 6c | xlst|ack = ol|
|00003e60| 64 73 74 6b 3b 0d 0d 20 | 20 20 20 2f 2a 20 72 65 |dstk;.. | /* re|
|00003e70| 74 75 72 6e 20 74 68 65 | 20 75 70 64 61 74 65 64 |turn the| updated|
|00003e80| 20 6c 69 73 74 20 2a 2f | 0d 20 20 20 20 72 65 74 | list */|. ret|
|00003e90| 75 72 6e 20 28 76 61 6c | 29 3b 0d 7d 0d 0d 2f 2a |urn (val|);.}../*|
|00003ea0| 20 78 61 74 6f 6d 20 2d | 20 69 73 20 74 68 69 73 | xatom -| is this|
|00003eb0| 20 61 6e 20 61 74 6f 6d | 3f 20 2a 2f 0d 4e 4f 44 | an atom|? */.NOD|
|00003ec0| 45 20 2a 78 61 74 6f 6d | 28 61 72 67 73 29 0d 20 |E *xatom|(args). |
|00003ed0| 20 4e 4f 44 45 20 2a 61 | 72 67 73 3b 0d 7b 0d 20 | NODE *a|rgs;.{. |
|00003ee0| 20 20 20 4e 4f 44 45 20 | 2a 61 72 67 3b 0d 20 20 | NODE |*arg;. |
|00003ef0| 20 20 61 72 67 20 3d 20 | 78 6c 61 72 67 28 26 61 | arg = |xlarg(&a|
|00003f00| 72 67 73 29 3b 0d 20 20 | 20 20 78 6c 6c 61 73 74 |rgs);. | xllast|
|00003f10| 61 72 67 28 61 72 67 73 | 29 3b 0d 20 20 20 20 72 |arg(args|);. r|
|00003f20| 65 74 75 72 6e 20 28 61 | 74 6f 6d 28 61 72 67 29 |eturn (a|tom(arg)|
|00003f30| 20 3f 20 74 72 75 65 20 | 3a 20 4e 49 4c 29 3b 0d | ? true |: NIL);.|
|00003f40| 7d 0d 0d 2f 2a 20 78 73 | 79 6d 62 6f 6c 70 20 2d |}../* xs|ymbolp -|
|00003f50| 20 69 73 20 74 68 69 73 | 20 61 6e 20 73 79 6d 62 | is this| an symb|
|00003f60| 6f 6c 3f 20 2a 2f 0d 4e | 4f 44 45 20 2a 78 73 79 |ol? */.N|ODE *xsy|
|00003f70| 6d 62 6f 6c 70 28 61 72 | 67 73 29 0d 20 20 4e 4f |mbolp(ar|gs). NO|
|00003f80| 44 45 20 2a 61 72 67 73 | 3b 0d 7b 0d 20 20 20 20 |DE *args|;.{. |
|00003f90| 4e 4f 44 45 20 2a 61 72 | 67 3b 0d 20 20 20 20 61 |NODE *ar|g;. a|
|00003fa0| 72 67 20 3d 20 78 6c 61 | 72 67 28 26 61 72 67 73 |rg = xla|rg(&args|
|00003fb0| 29 3b 0d 20 20 20 20 78 | 6c 6c 61 73 74 61 72 67 |);. x|llastarg|
|00003fc0| 28 61 72 67 73 29 3b 0d | 20 20 20 20 72 65 74 75 |(args);.| retu|
|00003fd0| 72 6e 20 28 61 72 67 20 | 3d 3d 20 4e 49 4c 20 7c |rn (arg |== NIL ||
|00003fe0| 7c 20 73 79 6d 62 6f 6c | 70 28 61 72 67 29 20 3f || symbol|p(arg) ?|
|00003ff0| 20 74 72 75 65 20 3a 20 | 4e 49 4c 29 3b 0d 7d 0d | true : |NIL);.}.|
|00004000| 0d 2f 2a 20 78 6e 75 6d | 62 65 72 70 20 2d 20 69 |./* xnum|berp - i|
|00004010| 73 20 74 68 69 73 20 61 | 6e 20 6e 75 6d 62 65 72 |s this a|n number|
|00004020| 3f 20 2a 2f 0d 4e 4f 44 | 45 20 2a 78 6e 75 6d 62 |? */.NOD|E *xnumb|
|00004030| 65 72 70 28 61 72 67 73 | 29 0d 20 20 4e 4f 44 45 |erp(args|). NODE|
|00004040| 20 2a 61 72 67 73 3b 0d | 7b 0d 20 20 20 20 4e 4f | *args;.|{. NO|
|00004050| 44 45 20 2a 61 72 67 3b | 0d 20 20 20 20 61 72 67 |DE *arg;|. arg|
|00004060| 20 3d 20 78 6c 61 72 67 | 28 26 61 72 67 73 29 3b | = xlarg|(&args);|
|00004070| 0d 20 20 20 20 78 6c 6c | 61 73 74 61 72 67 28 61 |. xll|astarg(a|
|00004080| 72 67 73 29 3b 0d 20 20 | 20 20 72 65 74 75 72 6e |rgs);. | return|
|00004090| 20 28 66 69 78 70 28 61 | 72 67 29 20 3f 20 74 72 | (fixp(a|rg) ? tr|
|000040a0| 75 65 20 3a 20 4e 49 4c | 29 3b 0d 7d 0d 0d 2f 2a |ue : NIL|);.}../*|
|000040b0| 20 78 62 6f 75 6e 64 70 | 20 2d 20 69 73 20 74 68 | xboundp| - is th|
|000040c0| 69 73 20 61 20 76 61 6c | 75 65 20 62 6f 75 6e 64 |is a val|ue bound|
|000040d0| 20 74 6f 20 74 68 69 73 | 20 73 79 6d 62 6f 6c 3f | to this| symbol?|
|000040e0| 20 2a 2f 0d 4e 4f 44 45 | 20 2a 78 62 6f 75 6e 64 | */.NODE| *xbound|
|000040f0| 70 28 61 72 67 73 29 0d | 20 20 4e 4f 44 45 20 2a |p(args).| NODE *|
|00004100| 61 72 67 73 3b 0d 7b 0d | 20 20 20 20 4e 4f 44 45 |args;.{.| NODE|
|00004110| 20 2a 73 79 6d 3b 0d 20 | 20 20 20 73 79 6d 20 3d | *sym;. | sym =|
|00004120| 20 78 6c 6d 61 74 63 68 | 28 53 59 4d 2c 26 61 72 | xlmatch|(SYM,&ar|
|00004130| 67 73 29 3b 0d 20 20 20 | 20 78 6c 6c 61 73 74 61 |gs);. | xllasta|
|00004140| 72 67 28 61 72 67 73 29 | 3b 0d 20 20 20 20 72 65 |rg(args)|;. re|
|00004150| 74 75 72 6e 20 28 73 79 | 6d 2d 3e 6e 5f 73 79 6d |turn (sy|m->n_sym|
|00004160| 76 61 6c 75 65 20 3d 3d | 20 73 5f 75 6e 62 6f 75 |value ==| s_unbou|
|00004170| 6e 64 20 3f 20 4e 49 4c | 20 3a 20 74 72 75 65 29 |nd ? NIL| : true)|
|00004180| 3b 0d 7d 0d 0d 2f 2a 20 | 78 6e 75 6c 6c 20 2d 20 |;.}../* |xnull - |
|00004190| 69 73 20 74 68 69 73 20 | 6e 75 6c 6c 3f 20 2a 2f |is this |null? */|
|000041a0| 0d 4e 4f 44 45 20 2a 78 | 6e 75 6c 6c 28 61 72 67 |.NODE *x|null(arg|
|000041b0| 73 29 0d 20 20 4e 4f 44 | 45 20 2a 61 72 67 73 3b |s). NOD|E *args;|
|000041c0| 0d 7b 0d 20 20 20 20 4e | 4f 44 45 20 2a 61 72 67 |.{. N|ODE *arg|
|000041d0| 3b 0d 20 20 20 20 61 72 | 67 20 3d 20 78 6c 61 72 |;. ar|g = xlar|
|000041e0| 67 28 26 61 72 67 73 29 | 3b 0d 20 20 20 20 78 6c |g(&args)|;. xl|
|000041f0| 6c 61 73 74 61 72 67 28 | 61 72 67 73 29 3b 0d 20 |lastarg(|args);. |
|00004200| 20 20 20 72 65 74 75 72 | 6e 20 28 6e 75 6c 6c 28 | retur|n (null(|
|00004210| 61 72 67 29 20 3f 20 74 | 72 75 65 20 3a 20 4e 49 |arg) ? t|rue : NI|
|00004220| 4c 29 3b 0d 7d 0d 0d 2f | 2a 20 78 6c 69 73 74 70 |L);.}../|* xlistp|
|00004230| 20 2d 20 69 73 20 74 68 | 69 73 20 61 20 6c 69 73 | - is th|is a lis|
|00004240| 74 3f 20 2a 2f 0d 4e 4f | 44 45 20 2a 78 6c 69 73 |t? */.NO|DE *xlis|
|00004250| 74 70 28 61 72 67 73 29 | 0d 20 20 4e 4f 44 45 20 |tp(args)|. NODE |
|00004260| 2a 61 72 67 73 3b 0d 7b | 0d 20 20 20 20 4e 4f 44 |*args;.{|. NOD|
|00004270| 45 20 2a 61 72 67 3b 0d | 20 20 20 20 61 72 67 20 |E *arg;.| arg |
|00004280| 3d 20 78 6c 61 72 67 28 | 26 61 72 67 73 29 3b 0d |= xlarg(|&args);.|
|00004290| 20 20 20 20 78 6c 6c 61 | 73 74 61 72 67 28 61 72 | xlla|starg(ar|
|000042a0| 67 73 29 3b 0d 20 20 20 | 20 72 65 74 75 72 6e 20 |gs);. | return |
|000042b0| 28 6c 69 73 74 70 28 61 | 72 67 29 20 3f 20 74 72 |(listp(a|rg) ? tr|
|000042c0| 75 65 20 3a 20 4e 49 4c | 29 3b 0d 7d 0d 0d 2f 2a |ue : NIL|);.}../*|
|000042d0| 20 78 63 6f 6e 73 70 20 | 2d 20 69 73 20 74 68 69 | xconsp |- is thi|
|000042e0| 73 20 61 20 63 6f 6e 73 | 3f 20 2a 2f 0d 4e 4f 44 |s a cons|? */.NOD|
|000042f0| 45 20 2a 78 63 6f 6e 73 | 70 28 61 72 67 73 29 0d |E *xcons|p(args).|
|00004300| 20 20 4e 4f 44 45 20 2a | 61 72 67 73 3b 0d 7b 0d | NODE *|args;.{.|
|00004310| 20 20 20 20 4e 4f 44 45 | 20 2a 61 72 67 3b 0d 20 | NODE| *arg;. |
|00004320| 20 20 20 61 72 67 20 3d | 20 78 6c 61 72 67 28 26 | arg =| xlarg(&|
|00004330| 61 72 67 73 29 3b 0d 20 | 20 20 20 78 6c 6c 61 73 |args);. | xllas|
|00004340| 74 61 72 67 28 61 72 67 | 73 29 3b 0d 20 20 20 20 |targ(arg|s);. |
|00004350| 72 65 74 75 72 6e 20 28 | 63 6f 6e 73 70 28 61 72 |return (|consp(ar|
|00004360| 67 29 20 3f 20 74 72 75 | 65 20 3a 20 4e 49 4c 29 |g) ? tru|e : NIL)|
|00004370| 3b 0d 7d 0d 0d 2f 2a 20 | 78 65 71 20 2d 20 61 72 |;.}../* |xeq - ar|
|00004380| 65 20 74 68 65 73 65 20 | 65 71 75 61 6c 3f 20 2a |e these |equal? *|
|00004390| 2f 0d 4e 4f 44 45 20 2a | 78 65 71 28 61 72 67 73 |/.NODE *|xeq(args|
|000043a0| 29 0d 20 20 4e 4f 44 45 | 20 2a 61 72 67 73 3b 0d |). NODE| *args;.|
|000043b0| 7b 0d 20 20 20 20 72 65 | 74 75 72 6e 20 28 63 65 |{. re|turn (ce|
|000043c0| 71 75 61 6c 28 61 72 67 | 73 2c 65 71 29 29 3b 0d |qual(arg|s,eq));.|
|000043d0| 7d 0d 0d 2f 2a 20 78 65 | 71 6c 20 2d 20 61 72 65 |}../* xe|ql - are|
|000043e0| 20 74 68 65 73 65 20 65 | 71 75 61 6c 3f 20 2a 2f | these e|qual? */|
|000043f0| 0d 4e 4f 44 45 20 2a 78 | 65 71 6c 28 61 72 67 73 |.NODE *x|eql(args|
|00004400| 29 0d 20 20 4e 4f 44 45 | 20 2a 61 72 67 73 3b 0d |). NODE| *args;.|
|00004410| 7b 0d 20 20 20 20 72 65 | 74 75 72 6e 20 28 63 65 |{. re|turn (ce|
|00004420| 71 75 61 6c 28 61 72 67 | 73 2c 65 71 6c 29 29 3b |qual(arg|s,eql));|
|00004430| 0d 7d 0d 0d 2f 2a 20 78 | 65 71 75 61 6c 20 2d 20 |.}../* x|equal - |
|00004440| 61 72 65 20 74 68 65 73 | 65 20 65 71 75 61 6c 3f |are thes|e equal?|
|00004450| 20 2a 2f 0d 4e 4f 44 45 | 20 2a 78 65 71 75 61 6c | */.NODE| *xequal|
|00004460| 28 61 72 67 73 29 0d 20 | 20 4e 4f 44 45 20 2a 61 |(args). | NODE *a|
|00004470| 72 67 73 3b 0d 7b 0d 20 | 20 20 20 72 65 74 75 72 |rgs;.{. | retur|
|00004480| 6e 20 28 63 65 71 75 61 | 6c 28 61 72 67 73 2c 65 |n (cequa|l(args,e|
|00004490| 71 75 61 6c 29 29 3b 0d | 7d 0d 0d 2f 2a 20 63 65 |qual));.|}../* ce|
|000044a0| 71 75 61 6c 20 2d 20 63 | 6f 6d 6d 6f 6e 20 65 71 |qual - c|ommon eq|
|000044b0| 2f 65 71 6c 2f 65 71 75 | 61 6c 20 66 75 6e 63 74 |/eql/equ|al funct|
|000044c0| 69 6f 6e 20 2a 2f 0d 4c | 4f 43 41 4c 20 4e 4f 44 |ion */.L|OCAL NOD|
|000044d0| 45 20 2a 63 65 71 75 61 | 6c 28 61 72 67 73 2c 66 |E *cequa|l(args,f|
|000044e0| 63 6e 29 0d 20 20 4e 4f | 44 45 20 2a 61 72 67 73 |cn). NO|DE *args|
|000044f0| 3b 20 69 6e 74 20 28 2a | 66 63 6e 29 28 29 3b 0d |; int (*|fcn)();.|
|00004500| 7b 0d 20 20 20 20 4e 4f | 44 45 20 2a 61 72 67 31 |{. NO|DE *arg1|
|00004510| 2c 2a 61 72 67 32 3b 0d | 0d 20 20 20 20 2f 2a 20 |,*arg2;.|. /* |
|00004520| 67 65 74 20 74 68 65 20 | 74 77 6f 20 61 72 67 75 |get the |two argu|
|00004530| 6d 65 6e 74 73 20 2a 2f | 0d 20 20 20 20 61 72 67 |ments */|. arg|
|00004540| 31 20 3d 20 78 6c 61 72 | 67 28 26 61 72 67 73 29 |1 = xlar|g(&args)|
|00004550| 3b 0d 20 20 20 20 61 72 | 67 32 20 3d 20 78 6c 61 |;. ar|g2 = xla|
|00004560| 72 67 28 26 61 72 67 73 | 29 3b 0d 20 20 20 20 78 |rg(&args|);. x|
|00004570| 6c 6c 61 73 74 61 72 67 | 28 61 72 67 73 29 3b 0d |llastarg|(args);.|
|00004580| 0d 20 20 20 20 2f 2a 20 | 63 6f 6d 70 61 72 65 20 |. /* |compare |
|00004590| 74 68 65 20 61 72 67 75 | 6d 65 6e 74 73 20 2a 2f |the argu|ments */|
|000045a0| 0d 20 20 20 20 72 65 74 | 75 72 6e 20 28 28 2a 66 |. ret|urn ((*f|
|000045b0| 63 6e 29 28 61 72 67 31 | 2c 61 72 67 32 29 20 3f |cn)(arg1|,arg2) ?|
|000045c0| 20 74 72 75 65 20 3a 20 | 4e 49 4c 29 3b 0d 7d 0d | true : |NIL);.}.|
|000045d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000045e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000045f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004600| 00 00 01 00 00 00 01 16 | 00 00 00 16 00 00 00 d4 |........|........|
|00004610| 20 5f a0 29 28 50 41 ef | 00 04 22 4d b3 c8 67 00 | _.)(PA.|.."M..g.|
|00004620| 00 08 42 58 60 00 ff f6 | 4e ad 09 6a 41 ed 09 6a |..BX`...|N..jA..j|
|00004630| 08 78 6c 6c 69 73 74 2e | 63 6c 02 00 00 00 00 00 |.xllist.|cl......|
|00004640| 00 00 00 00 00 00 01 00 | 01 00 01 80 0d 28 00 00 |........|.....(..|
|00004650| 00 00 00 00 00 00 00 00 | 00 00 01 00 01 00 01 80 |........|........|
|00004660| 0d 28 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.(......|........|
|00004670| 00 00 98 7f 67 26 00 00 | 45 50 00 00 01 ea 4a 40 |....g&..|EP....J@|
|00004680| 67 0e 48 6c 00 30 4e ba | 66 e0 58 8f 4e ba 77 c4 |g.Hl.0N.|f.X.N.w.|
|00004690| 4e ba 58 f4 48 6e ff c2 | 4e ba 27 ce 58 8f 2f 2d |N.X.Hn..|N.'.X./-|
|000046a0| ff fc 3f 3c 00 08 48 6e | ff c2 4e ba 27 6a de fc |..?<..Hn|..N.'j..|
|000046b0| 00 0a 48 6e ff c8 4e ba | 6b c8 58 8f 0c 40 00 00 |..Hn..N.|k.X..@..|
|000046c0| 66 0e 42 67 42 67 48 6c | 00 4c 4e ba 00 a6 50 8f |f.BgBgHl|.LN...P.|
|000046d0| 42 a7 48 6e ff f6 4e ba | 31 22 50 8f 30 3c 00 01 |B.Hn..N.|1"P.0<..|
|000046e0| 67 54 48 6e ff c8 4e ba | 6b 98 58 8f 4a 40 67 14 |gTHn..N.|k.X.J@g.|
|000046f0| 20 6d ff e4 42 a8 00 06 | 20 6d ff e0 42 a8 00 06 | m..B...| m..B...|
|00004700| 00 00 00 0a 00 09 06 4d | 6f 6e 61 63 6f 38 00 00 |.......M|onaco8..|
|00004710| 00 04 00 06 00 08 00 00 | 01 00 00 00 01 16 00 00 |........|........|
|00004720| 00 16 00 00 00 d4 00 00 | c0 9c 00 7a 00 00 00 1c |........|...z....|
|00004730| 00 46 00 01 45 46 4e 54 | 00 00 00 12 45 54 41 42 |.F..EFNT|....ETAB|
|00004740| 00 00 00 1e 03 eb 00 00 | 00 00 00 00 00 01 98 98 |........|........|
|00004750| 03 ec 00 47 00 00 00 0e | 00 01 76 66 46 4f 42 4a |...G....|..vfFOBJ|
|00004760| 00 fe 06 ec 00 00 46 de | 00 00 46 c8 00 00 46 fa |......F.|..F...F.|
|00004770| 00 00 47 12 00 00 46 e8 | 00 00 46 ee 00 00 47 06 |..G...F.|..F...G.|
|00004780| 00 00 47 0c 00 40 10 ca | 00 00 46 f4 00 40 01 a2 |..G..@..|..F..@..|
|00004790| 00 40 01 a2 00 40 01 a2 | 00 40 01 a2 00 40 01 a2 |.@...@..|.@...@..|
|000047a0| 00 40 01 46 4f 42 4a 00 | fe 06 ec 00 00 46 de 00 |.@.FOBJ.|.....F..|
|000047b0| 00 46 c8 00 00 46 fa 00 | 00 47 12 00 00 46 e8 00 |.F...F..|.G...F..|
|000047c0| 00 46 ee 00 00 47 06 00 | 00 47 0c 00 40 10 ca 00 |.F...G..|.G..@...|
|000047d0| 00 46 f4 00 40 01 a2 00 | 40 01 a2 00 40 01 a2 00 |.F..@...|@...@...|
|000047e0| 40 01 a2 00 40 01 a2 00 | 40 01 00 00 00 00 00 00 |@...@...|@.......|
|000047f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+
